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-REM ™ 


IDENTIFICATION 


PRODUCT CODE: AC-F939B-MC 

PRODUCT NAME: CZRMSBO RMOS/3/2 DUAL PORT TEST, PT 2 
PRODUCT DATE: APRIL 1981 

MAINTAINER: CX DIAGNOSTIC GROUP 

AUTHOR : MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS _ FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1980,1981 DIGITAL EQUIPMENT CORPORATION 
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1. ABSTRACT 


THE RMO5/3/2 DUAL PORT LOGIC TEST PERFORMS A SERIES OF 
TESTS WHICH VERIFY THAT THE RMO5/3/2 DUAL PORT LOGIC 

IS jee poems PROPERLY. ONLY THE CONTROL LOGIC IS TESTED 
BY THIS PROGRAM; DATA HANDLING IN THE DUAL PORT MODE 

IS NOT TESTED BY THIS PROGRAM. 


BOTH PORTS OF THE DRIVE ARE CABLED TO THE SAME MASSBUS BY 
A SPECIAL ADAPTER CABLE. THIS ARRANGEMENT ALLOWS THE DUAL 
PORT LOGIC TO BE TESTED FROM ONE PDP-11, RH11 OR RH70. 


THIS PROGRAM IS THE SECOND PART OF THE RMO05/3/2 DUAL PORT 
OPTION LOGIC TEST, AND IS USED TO TEST THE ‘PORT SELECT’ 


SWITCH. 
2. REQUIREMENTS 
2.1 EQUIPMENT 


PDP-11 PROCESSOR 

8K MEMORY 

KW11-L OR KW11-P CLOCK 

TERMINAL 

sae OR RH70 

- DISK DRIVE (RMOS, RMO3 OR RMO2) 

RM DUAL PORT TEST CABLE (P/N: 7010507-02) 
2.2 PREREQUISITE PROGRAMS 

A. RMO5/3/2 DISKLESS TEST, PART 1 & 2 

B. RMO5/3/2 FUNCTIONAL TEST, PART 1, 2 & 3 


THE PRELIMINARY PROGRAMS MUST BE RUN TWICE: ONCE FROM EACH 
PORT (A & B). 


C. RMO5/3/2 DUAL PORT LOGIC TEST, PART 1 
ra OTHER PROGRAMS 


DYNAMIC OPERATION OF THE DUAL PORT OPTION IS TESTED 
BY THE RMO5/3/2 PERFORMANCE EXERCISER PROGRAM. 
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oa LOADING PROCEDURES 


THE PROGRAM MAY BE LOADED BY THE ABSOLUTE PAPER TAPE 
LOADER OR IT MAY BE LOADED FROM THE APPROPIATE MEDIA 
USING THE ASSOCIATED*XXDP* LOADER. THE PROGRAM MAY NOT 
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BE INCLUDED IN AN “XXDP* CHAIN. 


STARTING PROCEDURES 


STARTING ADDRESSES 


A. THE NORMAL STARTING ADDRESS OF THE PROGRAM IS LOCATION 
200(8). STARTING AT THIS ADDRESS ALLOWS THE OPERATOR 
or sEttED (OR RESELECT) THE ADDRESS OF THE DRIVE TO 


B. THE RESTART ADDRESS IS LOCATION 204(8). THE PROGRAM 
WILL USE THE CURRENT DRIVE ADDRESS. 


C. THE PROGRAM CAN BE STARTED AT LOCATION 210(8) TO ALLOW 
THE RH11 OR RH70 ADDRESS TO BE CHANGED. 


OPERATOR ACTION 


A. CONNECT THE DUAL PORT TEST CABLE BETWEEN BUS A 
& BUS B ON THE DRIVE BEING TESTED. (SEE SECTION 5.4) 

B. LOAD THE PROGRAM INTO MEMORY IN THE PROCESSOR CONTROLLING 
THE MASSBUS USED FOR TESTING. 

C. SWITCH THE ‘PORT SELECT" SWITCH ON THE DRIVE TO BE 
TESTED TO THE ‘A/B* POSITION. CYCLE THE DRIVE UP. 

D. LOAD THE APPROPIATE STARTING ADDRESS (200(8) OR 210(8)) 
INTO THE SWITCH REGISTER (OR THE ‘SOFTWARE’ SWITCH REGISTER, 
SEE SECTION 5.2.) 

E. PRESS START. 

F. ENTER THE DRIVE NUMBER. 

G. ENTER THE NUMBER OF THE TEST TO BE RUN. (‘CARRIAGE RETURN’ 
OR "OQ" WILL RUN ALL TESTS.) 

H. THE PROGRAM MAY BE STOPPED AT ANY TIME AND RESTARTED 
FROM LOCATION 204. 


OPERATING PROCEDURES 


"SOF TWARE' SWITCH REGISTER 


IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR 

THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 
NOT PRESENT AND WILL USE A ‘SOFTWARE’ SWITCH REGISTER. THE 
"SOF TWARE® SWITCH REGISTER IS LOCATED AT LOCATION 176 (8). THE 


SETTINGS OF THE ‘SOFTWARE’ SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALLED BY TYPING A ‘CONTROL G*. THE PROGRAM WILL 


RECOGNIZE THE "CONTROL G* AT ANY TIME EXCEPT WHEN THE PROGRAM 
IS AT A HIGHER PRIORITY PROCESSING AN RM80 INTERRUPT. _iHE 


"SOF TWARE* SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 


TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 
"SWR = NNNNNN NEW =" 


ee re ee, a ee eee me 


= 
CZ7RMSBO 8MOS/3/2 DU POR TST 2 MACRO V046.00 4-APR-81 18:08:56 PAGE 3-2 


POR). .2 «2 > 


DPA MAH IIT BREE EEE BE DWN inononononononon 


NAA 
VSSRBISABRAVLS SONS APR wl OOO NOR WOO NOUR AN HOODOO MORN Doe 


welt lt lt el el eel el el ee eel eld eel oe 8 nw tS 3 os Be 8 J.) I) =) et et nd ed od ee 


5.2 
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5.4 


EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 


IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED., ‘RUBOUT" AND 


"CONTROL U* FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 
DURING SWITCH ENTRY. 


ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE "SOFTWARE SWITCH 
REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL 1°S IN THE SWITCHES. 
ALL SWITCH REGISTER REFERENCES WILL BE TO THE ‘SOFTWARE’ REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 

OPERATIONAL SWITCH SETTINGS 


WITH ALL SWITCHES SET TO ZERO, THE PROGRAM WILL TYPE 
ALL ERRORS AND CONTINUE TESTING. 


THE SWITCH SETTINGS ARE: 


SW<15>=1 HALT ON ERROR 

SW<14>=1 LOOP ON TEST 

SW<13>=1 INHIBIT ERROR TYPEOUTS 

SW<11>=1 INHIBIT TEST ITERATIONS 
SW<10>=1 RING TTY BELL ON ERROR 


SW<09>=1 LOOP ON ERROR 
TEST SELECTION 


INDIVIDUAL TESTS ARE SELECTED IN RESPONSE TO THE ‘ENTER 
TEST NUMBER:' MESSAGE. ANY VALID TEST NUMBER CAN BE 
ENTERED. EACH ENTRY MUST BE TERMINATED BY A CARRIAGE 
RETURN (CR). THE LOOP ON TEST SWITCH, SW<14>, MUST BE SET 
TO ALL CONTINUOUS EXECUTION OF THE SELECTED TEST. 


TO RUN ALL TESTS IN SEQUENCE, ENTER EITHER A ‘O* FOLLOWED 
BY A CARRIAGE RETURN OR A CARRIAGE RETURN BY ITSELF. THE 
PROGRAM WILL THEN EXECUTE ALL TESTS IN SEQUENCE. 


THE "RUBOUT KEY" (RO) CAN BE USED TO DELETE THE LAST 
CHARACTER ENTERED. SUCCESSIVELY STRIKING THE RO KEY 

WILL DELETE CHARACTERS UNTIL THE PREVIOUS CHARACTERS HAVE 
BEEN DELETED. CHARACTERS DELETED BY THE RO KEY WILL BE 
TYPED AND WILL BE SEPARATED BY ‘*\* FROM THE CHARACTERS 
ENTERED BY THE OPERATOR. 


THE OPERATOR CAN DELETE AN ENTIRE ENTRY BY TYPING A 
"CONTROL U" . 


TEST CABLE CONNECTION 


TO TEST THE RMO5/3/2 DUAL PORT OPTION WITH THIS PROGRAM, 

A SPECIAL TEST CABLE MUST BE USED. (THE TEST CABLE IS 

P/N: 7010507-02). THE TEST CABLE CONNECTS MASSBUS A & MASSBUS 
B TOGETHER AT THE DRIVE BEING TESTED AND IS CONSTRUCTED SO 
THAT BIT O OF THE MASSBUS. UNIT SELECT LINES IS COMPLEMENTED. 


WITH THE TEST CABLE CONNECTED TO THE DRIVE UNDER TEST, 
THE DRIVE APPEARS AS TWO UNITS ON THE MASSBUS: EACH PORT 
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SEQ 0006 
172 OF THE RMOS/3/2 WILL RESPOND TO A DIFFERENT MASSBUS ADDRESS. 
192 THE ADDRESS OF EACH PORT WILL DEPEND UPON THE DRIVE'S 
175 ADDRESS PLUG. 
177 THE PROGRAM WILL TYPEOUT THE APPARENT ADDRESSES OF BOTH 


PORTS. (ONE PORT WILL HAVE THE ADDRESS OF THE DRIVE; THE 
OTHER PORT WILL HAVE THE ADDRESS DEVELOPED BY THE CABLE). 


SI ITI IOI III IO OIE OR RRR EERE 
* ANY OTHER DRIVE ON THE MASSBUS WHICH HAS AN ADDRESS IN * 
* CONFLICT WITH EITHER OF THE TEST ADDRESSES MUST BE * 
* POWERED DOWN. * 
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THE TEST CABLE CONNECTION TO THE DRIVE UNDER TEST WILL 

DEPEND ON WHICH PROCESSOR, RH11/RH70 IS TO TEST THE DRIVE. 

IF THE DRIVE IS TO BE TESTED BY THE PROCESSOR ON PORT A, 

CONNECT THE MASSBUS CABLE FROM THE RH11/RH70 TO J3 OF THE 
RMO5/3/2 BACK PANEL,THEN CONNECT THE TEST CABLE (P/N: 7010507-02) 
FROM J2 TO J7 OF THE BACK PANEL AND TERMINATE THE PORT B AT J6. 


WHEN THE DUAL PORT TEST CABLE IS CONNECTED, THE ATTENTION 

BiTS FOR PORTS A & B ARE ASSERTED IN THE SAME BIT POSITION 

WHEN "RMAS' (ATTENTION SUMMARY REGISTER) IS READ. THE ATTENTION 
BIT POSITION IS DETERMINED BY THE ADDRESS OF THE DRIVE. 

THE ATTENTION BIT THAT APPEARS FOR THE DRIVE IS THE 

INCLUSIVE ‘OR* OF THE PORT A & PORT B ATTENTION BITS. BECAUSE 
OF THIS, THE PROGRAM LOOKS AT ONLY THE ATTENTION BIT IN 


CSOOOOVOOODO OWWOOWOH Go 
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01 "RMDS' (DRIVE STATUS REGISTER) TO DETERMINE THE STATE 
se OF THE SELECTED PORT'S ATTENTION BIT. 
204 
205 
206 6. ERRORS 
34 gia 
209 WHEN THE PROGRAM ENCOUNTERS AN ERROR, THE ERROR ROUTINE IS 
210 CALLED AND IF SwW<13> IS NOT SET, THE ERROR MESSAGE PERTAINING 
211 TO THE ERROR WILL BE TYPED. EACH ERROR TYPEOUT WILL CONTAIN 
$1 THE FOLLOWING: 
214 A. AN ERROR MESSAGE 

215 B. A DATA HEADER LINE 

$18 C. A DATA LINE CONTAINING: 

618 1. THE TEST NUMBER 

1 2. THE PC (PROGRAM COUNTER VALUE) WHERE THE ERROR 

$0 CALL WAS MADE 

$$) 3. CONTENTS OF THE APPROPIATE REGISTERS 

ee5 

$$¢ 

25 F MISCELLANEOUS 

C26 a a 

22? 

228 7.1 RESTRICTIONS 
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7.2 


7.4 


7.5 


7.8 


TO RUN THIS PROGRAM, THE SYSTEM MUST HAVE EITHER A Kwli-P 
OR A KWil-L CLOCK. ADDITIONALLY, THE RMO5S/3/2 UNDER TEST 
MUST HAVE THE DUAL PORT TEST CABLE CONNECTED. 


LIMITATIONS 


THIS PROGRAM DOES NOT TEST DATA TRANSFERS THROUGH EITHER 
ant ties NOT TEST THE DYNAMIC OPERATION OF THE DUAL 


EXECUTION TIME 


THE PROGRAM TAKES ABOUT 4 MINUTES PER PASS (DEPENDING ON 
OPERATOR INTERVENTION EFFICIENCY). 


REQUIRED TESTS 


IF THE PROGRAM IS BEING EXECUTED IN SINGLE TEST MODE, THE 
vette low tate CALL AND RUN THE FOLLOWING TESTS BEFORE OTHER 


A. TEST 2 AND TEST 3. THESE TESTS SET 'VV-A' AND ‘VvV-B' 
RESPECTIVELY. THESE TESTS MUST BE PERFORMED AT LEAST ONCE 
BEFORE TESTS 4 - 10 ARE RUN. 


B. TEST 4 AND TEST 5. THESE TESTS DETERMINE AND STORE FOR 
LATER USE THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH 
EACH PORT. THESE TESTS MUST BE PERFORMED AT LEAST ONCE BEFORE 
TESTS 6 ~ 10 ARE RUN. 


DISK SURFACE USAGE 


THE DIAGNOSTIC DOES NOT USE THE DISK SURFACE. HOWEVER, THE 
ogg MUST BE CYCLED UP AND ON LINE FOR THE DIAGNOSTIC TO BE 


LOOP ON ERROR OPTION 


IF SW<O9> IS SET, THE PROGRAM WILL LOOP ON A FAILING TEST 
UNTIL EITHER THE SWITCH IS RESET OR THE ERROR STOPS OCCURING. 
BECAUSE THE PROGRAM MUST RESET THE RMO5/3/2 TO A KNOWN STATE 
BEFORE LOOPING ON THE ERROR, THE TEST FOR SW<09> IS PERFORMED 
AT THE END OF THE TEST - NOT AT THE POINT WHERE THE ERROR 

WAS DETECTED. 


TEST DESCRIPTIONS 


METHOD USED TO VERIFY THAT DRIVE IS IN NEUTRAL 
THE PROGRAM DETERMINES THE THE DRIVE IS IN NEUTRAL BY CHECKING 


THE CONTENTS OF THE DRIVE STATUS REGISTER (RMDS) THROUGH 
BOTH PORTS. THE PROGRAM MASKS OUT THE PORT DEPENDENT BITS 
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SEQ 9008 
(*ATA* & ‘VV°) AND VERIFIES THAT CORRECT STATUS IS READ 
THROUGH BOTH PORTS. ( THE CORRECT STATUS IS ‘MOL*, ‘PGM', 
‘DPR’, & "DRY*.) IF NEITHER PORT SEES ALL ZEROS FROM 
RMDS, THE PROGRAM CONCLUDES THAT THE DRIVE IS IN NEUTRAL 
AND THAT ANY BIT DISCREPANCY BETWEEN PORTS INDICATES A 
FAILURE IN THE PATH FOR THAT BIT. 
8.2 METHOD USED TO VERIFY THAT THE DRIVE HAS BEEN SEIZED 
THE PROGRAM VERIFIES THAT THE DRIVE HAS BEEN SEIZED BY 
CHECKING THE DRIVE STATUS REGISTER (RMDS) THROUGH 


S PORT, 
ZEROS SHOULD BE SEEN. IF BOTH CONDITIONS EXIST, (I.E. 
THE OPPOSITE PORT), THE PROGRAM CONCLUDES THAT THE DRIVE 
HAS BEEN SEIZED BY THE SPECIFIED PORT. 


TEST 1 DRIVE ACCESS TEST 
VERIFY THAT THE DRIVE CAN BE ACCESSED THROUGH BOTH PORTS 
A. SELECT DRIVE, VERIFY THAT THE DRIVE IS PRESENT, THAT THE 
DRIVE IS A DUAL PORT RMO5/3/2, THAT THE DRIVE IS ONLINE (RMDS HAS 
"PGM', R', & "DRY' BITS SET), AND THE THE DRIVE SERIAL 
NUMBER READ THROUGH BOTH PORTS IS THE SAME. 


B. THE TEST IS REPEATED THROUGH BOTH PORTS. 


TEST 2 SET *VV" FOR PORT A 
SET VOLUME VALID 
A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT A. 


B. ISSUE A READIN PRESET COMMAND THROUGH PORT A. VERIFY 
THAT THE ‘VV* BIT IS SET FOR PORT A. 


C. ISSUE A RELEASE COMMAND THROUGH PORT A. VERIFY THAT 
THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
BIT IS SET. 
TEST 3 SET "VV" FOR PORT B 
SET VOLUME VALID 7 
A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT B. 


B. ISSUE A READIN PRESET COMMAND THROUGH PORT B. VERIFY 
THAT THE "VV" BIT IS SET FOR PORT B. 


C. ISSUE A RELEASE COMMAND THROUGH PORT B. VERIFY THAT 


THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
BIT IS SET. 
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SEQ 0009 


TEST 4 MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT A 
MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT A 


A. WRITE O°S INTO RMDS THROUGH PORT A AND VERIFY THAT THE 
DRIVE HAS BEEN SEIZED. 


B. WAIT FOR TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT 
ONE-SHOT AND SAVE THE VALUE FOR LATER USE. 


C. VERIFY THAT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS 
TO NEUTRAL 
TEST 5 MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT B 
MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT B 


A. WRITE O*S INTO RMDS THROUGH PORT B AND VERIFY THAT THE 
DRIVE HAS BEEN SEIZED. 


B. WAIT FOR TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT 
ONE-SHOT AND SAVE THE VALUE FOR LATER USE. 


C. VERIFY THAT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS 
TO NEUTRAL 
TEST 6 TEST ‘PORT SELECT’ SWITCH, DRIVE CYCLED UP 
TEST THE OPERATION OF THE ‘PORT SELECT* SWITCH (DRIVE CYCLED UP). 
A. SWITCH TO PORT *A* POSITION. VERIFY THAT THE DRIVE IS IN 
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
PORTS, ARE CORRECT. 
B. SWITCH TO PORT ‘B* POSITION. VERIFY THAT THE DRIVE IS IN 
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
PORTS, ARE CORRECT. 
C. RETURN THE ‘PORT SELECT* SWITCH TO THE ‘A/B* POSITION. VERIFY 
THE DRIVE STATE. 
TEST 7 TEST *PORT SELECT’ SWITCH LOCKED ON PORT A 
TEST THE OPERATION OF THE ‘PORT SELECT’ SWITCH (DRIVE CYCLED DOWN). 
A. CYCLE THE DRIVE DOWN. 
B. SWITCH TO PORT °A* POSITION. VERIFY THAT THE DRIVE IS IN 
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
PORTS, ARE CORRECT. 


C. SWITCH THE ‘PORT SELECT’ SWITCH TO A; CYCLE THE DRIVE UP. 
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WHEN THE DRIVE CYCLES UP, VERIFY THAT ‘VV-A IS RESET, AND 
THAT “ATA-A IS SET. 


wr a apes CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH 


VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT B AND 
"NED* SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH 
PORT B. ATTEMPT TO SET PORT REQUEST BY WRITING O'S 
INTO RMDS THROUGH PORT B. 


ISSUE A RELEASE COMMAND THROUGH PORT A. VERIFY THAT THE 
DRIVE REMAINS LOCKED ON PORT A. 


10 TEST ‘PORT SELECT" SWITCH LOCKED ON PORT B 
THE OPERATION OF THE ‘PORT SELECT" SWITCH (DRIVE CYCLED DOWN). 


CYCLE THE DRIVE DOWN. 


SWITCH TO PORT ‘B' POSITION. VERIFY THAT THE DRIVE IS IN 
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
PORTS, ARE CORRECT. 


SWITCH THE ‘PORT SELECT’ SWITCH TO B; CYCLE THE DRIVE UP. 


WHEN THE DRIVE coke" UP, VERIFY THAT ‘VV-B IS RESET, AND 
THAT "ATA-8 IS SET 


ee CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH 


VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT A AND 
*NED* SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH 
PORT A. ATTEMPT TO SET PORT REQUEST BY WRITING 0°S 
INTO RMDS THROUGH PORT A. 


ISSUE A RELEASE COMMAND THROUGH PORT B. VERIFY THAT THE 
DRIVE REMAINS LOCKED ON PORT B. 


CYCLE THE DRIVE DOWN. CHANGE THE ‘PORT SELECT’ SWITCH TO 
A/B; CYCLE THE DRIVE UP. 


VERIFY THAT BOTH PORTS CAN ACCESS THE DRIVE, THAT BOTH ATTENTION 
BITS ARE SET, AND THAT BOTH ‘VV" BITS ARE RESET. 
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SEQ 0010 
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>*LAST REVISION 04-APR-81 
-TITLE CZRMSBO heal DU POR TST 2 


z*COPYRIGHT (C€) 1 


>*DIGITAL EQUIPMENT CORPORATION 
s *COLORADO SPGS., CO. 80919 


: #PROGRAM BY MIKE LEAVITT 


: eTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
5 SE (MAINDEC-11-DZQAC-C5), 18-MAR-81 


* SBTTL OPERATIONAL SWITCH SETTINGS 
* 


"eee Me eH 
ee ene 
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HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 
INHIBIT ITERATIONS 
BELL ON ERROR 

LOOP ON ERROR 


-SBTTL BASIC DEFINITIONS 
be al ge “oa OF THE STACK POINTER *** 1100 *** 


meals — DEF INITIONS 


TACK = 
ERROR = EMT 
SCOPE = IOT 

= 1 
ie = 12 
CR = 15 
CRLF = 200 
PS = 177776 
PSW=PS 
STKLMT = 177774 
PIRQ = 177772 
DSWR = _-177570 
DDISP = 177570 
> *GENERAL 
RO = %0 
R1 = 1 
R2 = %2 
R3 = %3 
R4 = % 
RS = %5 
R6 = %6 
R7 = 47 
SP = %6 
PC = %7 

0 

PR1 40 


;*PRIORITY LEVEL DEFINITIONS 
PRO. = 


>;BASIC DEFINITION OF ERROR CALL 
:;BASIC DEFINITION OF SCOPE CALL 


:;CODE FOR HORIZONTAL TAB 

;;CODE FOR LINE FEED 

;;CODE FOR CARRIAGE RETURN 

;:CODE FOR CARRIAGE RETURN-LINE FEED 
> PROCESSOR STATUS WORD 


;;STACK LIMIT REGISTER 

; s PROGRAM INTERRUPT REQUEST REGISTER 
sHARDWARE SWITCH REGISTER 

: :HARDWARE DISPLAY REGISTER 


PURPOSE REGISTER DEFINITIONS 


;;GENERAL REGISTER 
;;GENERAL REGISTER 
; GENERAL REGISTER 
Rar REGISTER 


;GENERAL RE 
: STACK POINTER 
; PROGRAM COUNTER 


;:PRIORITY LEVEL 0 
:z:PRIORITY LEVEL 1 


i ES SC ORT oe ee oes Oe a ee ee Oe 


SEQ 0011 
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BASIC DEFINITIONS SEQ 0012 
000100 PR2 = 100 >:PRIORITY LEVEL 2 
000140 PR3 = 140 ::PRIORITY LEVEL 3 
000200 PRG = 200 ;:PRIORITY LEVEL 4 
000240 PR5 = 240 >:PRIORITY LEVEL 5 
000300 PR6 = >: PRIORITY LEVEL 6 
000340 PR7 = 340 >:PRIORITY LEVEL 7 

:*° "SWITCH REGISTER’’ SWITCH DEFINITIONS 
100000 W715 = 100000 
040000 SW14 = 40000 
| 020000 SwW13 =2 
010000 SW12 = 10000 
004000 Sw11 = 4000 
002000 SWw10 = 2000 
001000 SwO09 = 1000 
400 Sw08 = 400 
00 SWO7 = 200 
000100 SWwO06 = 100 
0 0 Sw05 = 40 
000020 Sw04 = 20 
000010 Sw03 = 16 
4 SwO02 = 4 
2 sw01 = 2 
000001 Sw00 = 7 
10 Sw9=Sw09 
000400 SW8=SWw08 
000200 SW7=SW07 
000100 SW6=SW0S6 
0040 SWw5=SwW05 
000020 w4= 
010 SW3=Sw03 
0004 SW2=Sw02 
0000062 SW1=SwW01 
000001 SwO= 
:*DATA BIT DEFINITIONS (BITOO TO BIT15) 
BIT15 = 100000 
BIT1 = 4 
BIT13 = 20000 
BIT12 = 10000 
BIT11 = 4000 
BIT10 = 2000 
BITO9 = 1000 
BITO8 = 400 
BITO7 = 200 
BIT06 = 100 
BIT05 = 40 
ITs6:—(iCi = 
BITOS3 = 10 
BITO2 = 4 
SitGi. =2 
BITOO = 1 
BIT9=BITO9 
BIT8=B1T08 
BIT7=B1T07 


BIT6=B1T06 
BIT5=BITOS5 





ee See 
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BASIC DEFINITIONS 


000020 B1T4=B1T04 
000010 B1T3=B1TO3 
000004 BIT2=B1T02 
000002 817T1=B1T01 
000001 81 TO=BITOO 
> *BASIC *‘CPU'’ TRAP VECTOR ADDRESSES 
ERRVEC = 4 :T OUT AND OTHER ERRORS 
000010 RESVEC = 10 : 3RESERVED AND ILLEGAL INSTRUCTIONS 
000014 TBITVEC = 14 ::"'T'' BIT 
000014 TRIVEC = 14 >: TRACE TRAP 
000014 BPTVEC = 14 ; ;BREAKPOINT TRAP (BPT) 
000020 IOTVEC = 20 : INPUT/OUTPUT TRAP (IOT) **SCOPE** 
000024 V = 24 -:POWER FAIL 
30 EMTVEC = 30 ; EMULATOR TRAP (EMT) **ERROR** 
000034 TRAPVEC = 34 -**TRAP"’ TRAP 
000060 TKVEC = 60 >:TTY KEYBOARD VECTOR 
000064 TPVEC = 64 -:TTY PRINTER VECTOR 
_ 000240 ~PIRQVEC = 240 ::PROGRAM INTERRUPT REQUEST VECTOR 
253 .SBTTL RH/RM REGISTERS 
257 :CONTROL AND STATUS REGISTER 1 (RMCS1) 
525 000100 IE = 100 : INTERRUPT ENABLE (BIT #6) 
526 000200 RDY = 200 sREADY (BIT #7) 
527 000400 Al6 = 400 :HIGH ORDER BUS ADDRESS BIT (BIT #8) 
528 001000 A17 = 1000 :HIGH ORDER BUS ADDRESS BIT (BIT 49) 
529 002000 PSEL = 2000 :PORT SELECT (BIT #10) 
530 0000 MCPE = 20000 *MASSBUSS PARITY ERROR (BIT #13) 
531 040000 TRE = 40000 : TRANSFER ERROR (BIT #14) 
236 100000 Sc = 100000 *SPECIAL CONDITION (BIT #15) 
534 :WORD COUNT REGISTER (RMWC) 
tH : (EACH BIT IS CALLED BY BIT NUMBER) 
537 :BUS ADDRESS REGISTER (RMBA) 
236 : (EACH BIT IS CALLED BY BIT NUMBER) 
rt :CONTROL AND STATUS REGISTER 2 (RMCS2) 
542 000001 U0 ae :UNIT SELECT (BIT 40) 
543 000002 U1 = 2 “UNIT SELECT (BIT #1) 
544 U3 = & :UNIT SELECT (BIT #2) 
545 000010 BAI = 40 “BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
546 20 PAT = 20 - sMASSBUS PARITY TEST (BIT #4) 
547 CLR = 40 *CLEAR (BIT #5) 
548 000100 IR = 100 : INPUT READY (BIT #6) 
549 000200 = 200 “OUTPUT READY (BIT #7) 
550 000400 MDPE = 400 -MASS BUS PARITY ERROR (BIT #8) 
$51 001000 MXF = 1000 “MISSED TRANSFER ERROR (BIT #9) 
552 002000 PGE = 2000 :PROGRAM ERROR (BIT #10) 
553 000 NEM = 4000 -NON EXISTENT MEMORY (BIT 411) 
554 010000 NED = 10000 -NON EXISTENT DRIVE (BIT 412) 
$55 026000 UPE = 20000 -UNIBUS PARITY ERROR (BIT 413) 
$46 040000 WCE = 40000 -WRITE CHECK ERROR (BIT #14) 
Ss? 100000 DLT = 100000 *DATA LATE (BIT #15) 


_— ek Se Oe ee Oc A —- - ——--— -_— 
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SE ee 


558 

559 

560 

561 

562 

563 

564 

565 

566 900001 

567 000002 

568 000004 

569 000010 

570 000020 

571 000040 

57 004000 

57 

574 

575 

576 

577 000002 

578 000004 

579 000010 

; 000020 

581 000040 

582 000100 

583 000200 

584 000400 

585 001000 

586 002000 

587 004000 

588 010000 

589 020000 

590 040000 

591 100000 

592 

593 

59% 

595 000001 

596 000002 

597 000004 

598 000010 

599 000020 

600 000040 

601 0001 

602 000200 

603 0004 

604 001000 

605 002000 
004000 

607 010000 
020000 

609 040000 

610 100000 

12 

618 

614 000001 


B 2 
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:DATA BUFFER REGISTER (RMDB) 
> (EACH BIT IS CALLED BY BIT NUMBER) 


-SBTTL RM REGISTERS 
;CONTROL AND STATUS 1 REGISTER. (#00) 


GO = 1 :GO BIT (BIT #0) 

FO =2 sFUNCTION CODE BIT #1 

FI = 4 sFUNCTION CODE BIT #2 

F2 = 10 sFUNCTION CODE BIT #3 

F3 = 20 sFUNCTION CODE BIT #4 

F4 = 40 sFUNCTION CODE BIT #5 

DVA = 4000 sDEVICE AVAILABLE (BIT #11) 
;DRIVE STATUS REGISTER \RMDS) (401) 

;DF5 = 1 DRIVE FORWARD 5°'/SEC. <BII #0) 
DFF2Q0 =e :DRIVE FORWARD 20°'/sEC. (BIT #1) 
DIGB = 4 sDRIVE TO INNER GUARD BAND (BIT #2) 
GRV = 10 ;GO REVERSE (BIT #3) 

DL64 = 20 :DIFFERENCE LESS THAN 64 (BIT #4) 
DE1 = 40 DIFFERENCE EQUALS 1 (BIT #5) 

VV = 100 ;VOLUME VALID (BIT #6) 

DRY = 200 :DRIVE READY (BIT #7) 

DPR = 400 ; DRIVE PRESENT (BIT #8) 

PGM = 1000 OGRAMABLE (BIT #9) 

LBT = 2000 “LAST SECTOR TRANSFERRED (BIT #10) 
WRL = 4000 sWRITE LOCK (BIT #11) 

MOL = 10000 sMEDIUM ON-LINE (BIT #12) 

PIP = 20000 sPOSITIONING OPERATION IN PROGRESS (BIT #13) 
ERR = 40000 ; COMPOSITE ERROR (BIT #14) 

ATA = 100000 sATTENTION ACTIVE (BIT #15) 
sERROR REGISTER #01 (RMER1) (402) 

ILF = 1 ; ILLEGAL FUNCTION (BIT #0) 

ILR = 2 ; ILLEGAL REGISTER (BIT #1) 

RMR = 4 :REGISTER MODIFICATION REFUSED (BIT #2) 
PAR = 10 :PARITY ERROR (BIT #3) 

FER = 20 :FORMAT ERROR (BIT #4) 

WCF = 40 :WRITE CLOCK FAIL (BIT #5) 

ECH = 100 ;ECC HARD ERROR (BIT #6) 

HCE = 200 ;HEADER COMPARE ERROR (BIT #7) 
HCRC = 400 ;HEADER CRC ERROR (BIT #8) 

AOE = 1000 ;ADDRESS OVERFLOW ERROR (BIT #9) 
IAE = 2000 ; INVALID ADDRESS ERROR (BIT 410) 
WLE = 4000 :WRITE LOCK ERROR (BIT #11) 

DTE = 1 - DRIVE TIMING ERROR T #1 

OP] = 20000 ION INCOMPLETE (BIT #13) 
UNS = 40000 :DRIVE UNSAFE (BIT #14) 

DCK = 100000 :DATA CHECK ERROR (BIT 15) 
;MAINTAINABILITY REGISTER (RMMR1) (403) 

DMD = 7 ;DIAGINOSTIC MODE (BIT 40) 


— aan — ae 


SEQ 0014 
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RM REGISTER SEQ 0015 
615 
66 z:ATTENTION SUMMARY PSEUDO-REGISTER (RMAS) (#04) 
618 000001 ATO = 1 DEVICE 0 (BIT #0) 
619 000002 ATl = 2 =DEVICE 1 (BIT #1) 
620 000004 AT2 =4 DEVICE 2 (BIT #2) 
621 000010 ATs = 10 sDEVICE 3 (BIT #3) 
2 000020 AT4 = 20 sDEVICE 4 (BIT #4) 
| 623 000040 ATS = 40 :DEVICE 5 (BIT #5) 
624 000100 AT6 = 100 :DEVICE 6 (BIT #6) 
| 625 000200 AT7 = 200 “DEVICE 7 (BIT #7) 
| 627 :DESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (405) 
oc8 : (EACH BIT IS CALLED BY BIT NUMBER) 
rei :DRIVE TYPE REGISTER (RMDT) (406) 
632 000001 DTOO = 7 1 
633 000002 DT01 = 2 2 
000004 DTO2 = 4 3 
635 000010 DT03 = 10 4 
4 000020 DT04 = 20 5 
637 000040 DTOS = 40 6 
638 000100 DT06 = 100 7 
639 000200 DTO7 = 200 8 
64 000400 DT08 = 400 TYPE NUMBER BIT 9 
641 004000 DRQ = 4000 :DRIVE REQUEST REQUIRED (BIT #11) 
64 020000 MOH = 20000 -MOVING HEAD (BIT #13) 
64 040000 TAP = 40000 : TAPE DRIVE (BIT #14) 
ohe 100000 NBA = 100000 -NOT BLOCK ADDRESSED (BIT #15) 
46 | OOK=AHEAD REGISTER (RMLA) (407) 
648 000100 sco = 100 :SECTOR COUNT FIELD O (BIT #6) 
649 000200 SC1 = 200 =SECTOR COUNT FIELD 1 (BIT #7) 
650 000400 SC2 = 400 :SECTOR COUNT FIELD 2 (BIT #8) 
651 001000 SC3 = 1000 -SECTOR COUNT FIELD 3 (BIT #9) 
$36 002000 SC4 = -SECTOR COUNT FIELD 4 (BIT #10) 
ree: :>RM ERROR REGISTER #2 (RMER2) (#10) 
000010 DPE = 10 :DATA PARITY ERROR (BIT #3) 
000200 DVC = 200 :DEVICE CHECK (BIT # #7) 
002000 LBC = 2000 -LOSS OF BIT CLOCK (BIT #10) 
000 LSC = 4000 ‘Toss OF SYSTEM CLOCK (BIT #11) 
010000 Ivc = 10000 - INVALID COMMAND (BIT #12) 
020000 OPE = 20000 -OPERATOR ERROR (BIT #13) 
100000 SKI = 100000 -SEEK INCOMPLETE (BIT #14) 
OFFSET REGISTER (RMOF) (#11) 
000200 OF D = 200 -OFFSET FORWARD (BIT #5) 
002000 HC] = 2000 :HEADER COMPARE INHIBIT (BIT #10) 
004000 FCI = 4000 ERROR CORRECTION CODE INHIBIT (BIT 417) 
010000 FMT16 = 10000 :FORMAT BIT (BIT #12 


:DESIRED CYLINDER ADDRESS (RMDC) (412) 
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000046 
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>; (EACH BIT IS CALLED BY BiT NUMBER) 
;SERIAL NUMBER REGISTER (RMSN) (414) 
NUMBER) 


> (EACH IS CALLED BY BIT 


sECC POSITION REGISTER (RMEC1) ae 
; (EACH BIT IS CALLED BY BIT NUMBER) 


sECC PATTERN REGISTER (RMEC2) (#17) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


DEFINITIONS OF THE RH/RM ADDRESS INDEXES 


;CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00) 
:WORD COUNT REGISTER (NOT A DRIVE REG) 
:UNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 


:DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 05) 
;CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG) 


sDRIVE STATUS REGISTER (DRIVE REG 01) 

;ERROR REGISTER #1 (DRIVE REG. 02) 

: ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04) 
a AHEAD REGISTER (DRIVE REG. 07) 

:DATA BUFFER REGISTER (NOT A DRIVE REG.) 
:MAINTAINABILITY REGISTER (DRIVE REG. 03) 

;DRIVE TYPE REGISTER (DRIVE REG. 06) 

>SERIAL NUMBER REGISTER (DRIVE REG. 10) 

[OFFSET REGISTER (DRIVE REG. 11) 

;DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
;MAINTENANCE REGISTER #2 (DRIVE REG. 14) 

;ERROR REGISTER #2 (DRIVE REG. 15) 


:ECC POSITION REGISTER (DRIVE REG. 16) 
;ECC PATTERN REGISTER (DRIVE REG. 17) 


ee 


SEQ 0016 


ee 


Ea ——  ——— — < ornre- 
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RAP CATCHE SEQ 0017 


1 -SBITL TRAP CATCHER 
-=0 
7*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ‘*,#2,HALT'’ 


:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
; *LOCAT ION e. CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


000174 a 
000174 000000 DISPREG: “ane 0 =: SOFTWARE DISPLAY REGISTER 
000176 000000 SWREG: .WORD 0 =: SOFTWARE SWITCH REGISTER 
_SBTTL STARTING ADDRESS(ES) 
900200 000137 001766 JMP @ASTART :: JUMP TO STARTING ADDRESS OF PROGRAM 
Z 
900204 000137 001774 JMP @ASTART1 :START AND CHANGE THE RH/RM ADDRESS 
7 .SBTTL ACT11 HOOKS 
SF EAA AAA AAA AAEKEKEEEAAEREREKAARKEAAAAAAAAERAEAAAHAAEKHAKRAKEE Rees 
“HOOKS REQUIRED BY ACT11 
000210 $SVPC=. =SAVE PC 
000046 _=46 
000046 013366 SENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
000052 020000 “WORD 20000 ;2)SET LOC. 552 TO 20000 
000210 =$SVPC «> RESTORE P 


eer ee ee eee ee —_—_ en ame se 
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COMMON TAGS SEQ 0018 


0 -SBTTL COMMON TAGS 


= REA AEAAEAEKEAESEAAAAEAEATAAAAKAAEARARARRAARAKEAARERARRARRRE HERR EERE EEE 


7*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 


001100 .=1100 
001100 SCMTAG: ;;START OF COMMON TAGS 
0901100 Q00000 SPASS: .WORD 0 >: CONTAINS PASS COUNT 
091102 STSTNM: .BYTE 0 >: CONTAINS THE TEST NUMBER 
001103 000 SERFLG: .BYTE 0 >; CONTAINS ERROR FLAG 
001106 SIGNI: . D 0 3; CONTAINS SUBTEST ITERATION COUNT 
001106 Q000000 $LPADR: .WORD 0 7: CONTAINS SCOPE LOOP ADDRESS 
001110 $LPERR: .WORD 0 : CONTAINS SCOPE RETURN FOR ERRORS 
001112 Q00000 SERTTL: .WORD 0 3: CONTAINS TOTAL ERRORS DETECTED 
001114 SITEMB: .BYTE 0 3; CONTAINS ITEM CONTROL BYTE 
001115 001 SERMAX: .BYTE 1 >; CONTAINS MAX. ERRORS PER TEST 
001116 000000 SERRPC: . D 0 >: CONTAINS PC OF LAST ERROR INSTRUCTION 
001120 $GDADR: . D 0 ;; CONTAINS ADDRESS OF ‘GOOD’ DATA 
001122 DADR: .WORD 0 :; CONTAINS ADDRESS OF ‘BAD’ DATA 
001124 S$GDDAT: .WORD 0 7: CONTAINS ‘GOOD’ DATA 
001126 000 S$BDDAT: .WORD 0 >: CONTAINS ° * DATA 
001130 (OG0000 .- WORD 0 > ;RESERVED--NOT TO BE USED 
001132 000000 -WORD 0 
001134 000 SAUTOB: .BYTE 0 >; AUTOMATIC MODE INDICATOR 
001135 000 SINTAG: .BYTE Q >; INTERRUPT MODE INDICATOR 
001136 000 -WORD 0 
001140 177570 - WORD DSWR ; ADDRESS OF SWITCH REGISTER 
001142 177570 DISPLAY: .WORD DDISP ; ADDRESS OF DISPLAY REGISTER 
001144 177560 177560 7: TTY KBD STATUS 
001146 177562 $TKB: 177562 :: TTY KBD BUFFER 
001150 177564 $TPS: 177564 :: TTY PRINTER STATUS REG. ADDRESS 
001152 177566 $TPB: 177566 : :: TTY PRINTER BUFFER REG. ADDRESS 
001154 000 ® BYTE 0 ;; CONTAINS NULL CHARACTER FOR FILLS 
001155 002 SFILLS: .BYTE 2 ;; CONTAINS #4 OF FILLER CHARACTERS REQUIRED 
001156 012 SFILLC: .BYTE 12 7 INSERT FILL CHARS. AFTER A ‘LINE FEED’’ 
601157 000 S$TPFLG: .BYTE 0 ::' TERMINAL AVAILABLE’’ FLAG (BIT<07>=0=YES) 
001160 000000 SREGAD: .WORD 0 : ; CONTAINS THE ADDRESS FROM 
: WHICH (S$REGO) WAS OBTAINED 

001162 000000 $REGO: .WORD 0 : : CONTAINS (($REGAD) +0) 
001164 000000 STMPO: WORD 0 ; ;USER DEFINED 
001166 00 SITMP1: WORD 0 : USER DEFINED 
001170 000000 STMP2: WORD 0 : ;USER DEFINED 
Rete 000000 STMPS: WORD 0 ; USER DEFINED 

1174 Q00000 SITMP4: WORD 0 ; USER DEFINED 
001176 Q00000 STIMES: 0 >:;MAX. NUMBER OF ITERATIONS 
001200 000000 SESCAPE :0 : :ESCAPE ON ERROR ADDRESS 
001202 207 377 377 $BELL: .ASCIZ <207><377><377> ;:CODE FOR BELL 
001206 077 $QUES: .ASCII /?/ : ;QUESTION MARK 
001207 015 $CRLF: .ASCII <15> >; CARRIAGE RETURN 
001210 012 000 $LF: eASCIZ <12> : LINE FEED 


STARA AAAAAARAAAAAEEKARAEAARAAAKEAAAAHAAEARAAAAAERAERKAERRRA KARA EES 
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172540 
172542 
000104 
177546 
000100 


MPMIMY 


Mnrn——— 
ARNO LN 


SREN 


AEMOALNVO 


MMM MINIM 
ee Nm MOMMY 


SSOSSSSSSSSSSSS8SSsss 


oo 
MMINMVMNIMIPPY 





Ooo 
REVS 


176700 
000254 


SRMADR: 
SRMVEC: 


—  — ——_—— —— eB ee ee $e ee ee ee ee eee ee oe eee ee 
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USER DEFINED TAGS 


o 
ee ee 


RH/RM UNIBUS AND VECTOR 
-WORD 176700 
~WORD 254 


zADDR OF KWI1-P STATUS REGISTER 
;ADDR OF KW11-P COUNTER BUFFER 
;ADDR OF KW11-P VECTOR 
;ADDR OF KWil-L STATUS REGISTER 
;ADDR OF KW11-L VECTOR 

F PORT A 


5 
~] 
70 
mn 
“ 
“ 
© 


S OF PORT B 
zADDRESS OF DIFFERENT DRIVE 
sATA-A OR ATA-B = 1 
;CONTAINS THE PORT ADDRESS FOR ERROR TYPEOQUTS 
:CONTAINS THE ADDRESS OF THE SEIZING PORT 
sCONTAINS THE ADDRESS OF THE ‘OPPOSITE’ PORT 
:NUMBER OF THE CURRENT TEST 
:IF -1, A REGISTER MISCOMPARISON OCCURRED 
:IF -1, THE PORT IN ‘SEIZPT' DID NOT SEIZE THE DRIVE 
:IF -1, THE PORT IN ‘SEIZPT* DID NOT RELEASE THE DRIVE 
sELAPSED TIME COUNTER 
;WATCH DOG TIMER LOCATION 
>THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT A 
;PORT A TIMEOUT VALUE + 25% 
sTHE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT 8 
:PORT B TIMEOUT Herts + 25% 
sSINGLE TEST INDICAT 
; CHANGE THE RH/RM ADDRESS INDICATOR 


ADDRESSES 
;RH/RM UNIBUS ADDRESS 


—_— ——— oe - ee 


; INTERRUPT VECTOR ADDRESS 


eee eee 
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001276 


oOooo 
OoOocooo 


WAIANAE PU Puno ru dro Pr Ne ae es ee eo 
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SEQ 00270 
.SBTTL ERROR POINTER TABLE 
;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
«1 INFORMATION IS OBTAINED BY USING THE INDEX -R FOUND IN 
« #l OCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
: NOTE: IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC) 
: *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
:* EM 7z:PGOINTS TO THE ERROR MESSAGE 
;* DH zzPOINTS TO THE DATA HEADER 
;* DT ::POINTS TO THE DATA 
3* DF 3;z:POINTS TO THE DATA FORMAT 
SERRTB 
-ERROR 1 
020501 EM1 sDRIVE IS NON-EXISTENT (°NED' BIT SET) 
23244 DH1 
024614 DT1 
025034 DFI 
sERROR 2 
020547 EM2 ;WRONG DRIVE TYPE 
023315 DH2 
024630 DT2 
025041 DF 2 
sERROR 3 
020570 EM3 sPORT SELECT SWITCH ON DRIVE NOT IN ‘A/B’ 
023244 DH1 
024614 DT1 
025034 DF 1 
>ERROR 4 
020642 EM4 z:DRIVE NGT ON LINE 
023315 DH2 
024630 DT2 
025041 DF2 
ERROR 5 
2066 EMS SERIAL NUMBER READ THROUGH EACH PORT NO! THE SAME 
023371 DHS 
024646 DT5 
25047 DF5 
ERROR 6 
020746 EM6 > TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS 
023440 DH6 
024662 DT6 
025054 DF6 


OE 


$ 6 FREE 


wae 
NO 


81 


SELESEALSLEBSELESEAVIS 
3s 
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021020 
023467 
024672 
025057 
025034 


021153 


025034 


021267 


025054 


021354 


025034 
021522 
023534 
024704 
025054 


- . 
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EM? > TIMEOUT ONE-SHOT IS LESS THAN 500 MS 


EM70 sREADIN PRESET DOES NOT SET VOLUME VALID FOR THE PORT 


EM11 :*°GO" BIT RESET DURING UNLOAD COMMAND 


EM12 ; INCORRECT STATUS DURING UNLOAD COMMAND 


EM13 sDRIVE DID NOT RETURN TO NEUTRAL AFTER UNLOAD COMMAND 


EM14 sATTENTION BiT SET ON ‘OPPOSITE PORT’ AFTER UNLOAD 


EM15 sATTENTION BIT NOT SET ON PORT WHICH ISSUED ‘UNLOAD’ 


ZERROR 16 


EM16 = :DRIVE NOT IN NEUTRAL AFTER UNLOAD WITH ‘PORT 
iat >SELECT’ SWITCH MOVED FROM 'A/B" 
H 


D113 
DF6 


ee mee - _ eee ee 


SEQ 0021 


CZ7RMSBO RMOS/3/2 Du POR TST 2 


ERROR POINTER TABLE 


— 


© 
oo) 


WN HO O@NO UN FWN- OOO NC Vilwr —“SSRURRR OD 


Co OO WO US ws —- O OO@nN 


025071 


021724 


025071 


022007 


025034 


022060 
023244 
024614 
025034 


022156 


025073 


000000 
000000 
000000 
000000 


: ERROR 


: ERROR 


: ERROR 


> ERROR 


: ERROR 


;ERROR 


> ERROR 
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:DRIVE LOCKED ON PORT ‘A* BY SWITCH WHILE CYCLED UP 


:DRIVE LOCKED ON PORT ‘B* BY SWITCH WHILE CYCLED UP 


:STATUS INCORRECT FOR PORT AFTER CYCLE UP 


sREGISTER CONTENTS SEEN WHEN DRIVE SWITCHED ON ‘OPPOSITE’ PORT 


> "NED" SET WHEN RMDS ACCESSED THROUGH PORT NOT SWITCHED 


sDRIVE SWITCHED TO LOCKED OUT PORT WHEN RELEASED/ 


3RH/RM DIDN'T RESPOND TO ADDRESSING 


;UNUSED ERROR MESSAGES 


em eee ee eee 


SEQ 0022 


——2 <a -. — 


001556 
001560 
001562 
001564 
159 
160 
161 001566 
162 001570 
163 001572 
164 001574 
165 
166 
167 
168 001576 
169 001600 
170 001602 
171 001604 
172 
173 
174 
175 901606 
176 001610 
177 001612 
178 001614 
179 
180 
181 
182 001616 
183 001620 
184 001622 
185 001624 
186 
187 
188 
189 001626 
190 001630 
191 001632 
192 001634 
193 
194 
195 
12g Soler 
197 001640 
198 001642 
199 001644 


SiearaNss 
$388 
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900000 
000000 
000000 
000000 


022574 
024061 
024756 
025074 


022425 


025041 


022473 


025034 


022607 


025103 


022656 


025057 
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zERROR 27 


: 7UNUSED ERROR MESSAGES 
0 
0 


:ERROR 30 
EM30 z:DRiVE NOT SEIZED BY PORT ‘N' 


EM31 :WRONG STATUS SEEN BY THE SEIZING PORT 


EM32 sREGISTER CONTENTS INCORRECT 


EM35 ;CONTROL BUS PARITY ERROR WHILE READING REGISTER 


EM34 ;CAN'T ACCESS DRIVE THROUGH EITHER PORT 


EM35 :DRIVE NOT IN NEUTRAL AFTER RELEASE, REQUEST NOT SET 


EM56 sDRIVE NOT IN NEUTRAL AFTER TIMEOUT, REQUEST NOT SET 


sERROR 37 


een ee a + 


a —_——_— - 


rh ony 


2 
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ROR POINTER TABLE 
209 
210 001656 0230 
211 001660 024374 
si¢ 001662 024756 
213 001664 025074 
214 
215 
216 
217 001666 023111 
218 001670 024516 
219 001672 025022 
220 001674 025057 
22) 
$56 
22 
$84 001676 023166 
225 001700 024061 
$s$ 001702 024756 
$$, 001704 025074 
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sREGISTER CONTENTS INCORRECT AFTER RELEASE/TIMEOUT 


:DRIVE NOT SEIZED BY PORT AFTER RELEASE WITH REQUEST SET 


sREGISTER WRONG AFTER RELEASE WITH REQUEST SET 


mw «we eer ee 


SEQ 0024 
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ERROR POINTER TABLE SEQ 0025 

















} -THIS ROUTINE HANDLES UNEXPECTED TIMEQUTS 
3001706 011600 BADTMO: MOV (SP) RO SAVE PC WHERE THE TIME OUT OCCURED 
4 001710 005740 TST -(RO) = ADJ UST PC -2 
§ 001712 022626 CMP (SP)+, (SP)+ =RESTORE STACK POINTER 
| 6 001714 1046401 001722 TYPE ,65$ £3 TYPE ASCIZ STRING 
) 001720 000417 BR 64$ GET OVER THE ASCIZ 
| 765%: .ASCIZ <CRLF>/UNEXPECTED BUS TIMEOUT, PC=/ 
| 001760 64$: 
7 001760 01004 MOV RO, -(SP) :SETUP FOR TYPING OUT PC 
| 8 001762 104402 TYPOC 
| 9 001764 000240 NOP :PUT "HALT(O)" INSTRUCTION HERE IF YOU WISH 
19 :TO STOP ON UNEXPECTED TIMEOUT. 
1g .SBTTL START OF PROGRAM 
14 001766 005037 001270 START: CLR CHGADR CLEAR THE ‘CHANGE RH/RM ADDRESS' INDICATOR 
1? 001772 000403 BR START2 -GO TO THE START 
1 001774 012737 177777 001270 START1: MOV #-1,CHGADR :SET THE "CHANGE RH/RM ADDRESS' INDICATOR 
19 002002 00024 START2: NOP 
20 002004 005227 000000 INC #0 :TTY LOOP, WAIT FOR INCREMENT 
21 002010 001375 BNE ~ 7 OF 
$6 002012 000005 RESET *CLEAR THE WORLD 
24 .SBTTL INITIALIZE THE COMMON TAGS 
-:CLEAR THE COMMON TAGS ($CMTAG) AREA 
002014 012706 001100 MOV ASCMTAG,R : sFARST LOCATION TO BE CLEARED 
002020 005026 CLR (R6) + CLEAR MEMORY LOCATION 
002022 022706 001140 CMP #SWR,R6 : 
002026 001374 .-6 “LOOP. "BACK IF NO 
002030 012706 001100 MOV #STACK, SP SETUP THE STACK POINTER 
: INITIALIZE A FEW VECTORS 
002034 012737 013620 MOV #SSCOPE , AM IOTVEC :¢ JOT VECTOR FOR SCOPE ROUTINE 
00 Rok 012737 000340 MOV #340, ar lOTVEC+2 SsLEVEL 7 
002050 012737 014202 MOV #SE VEC : EMT VECTOR FOR ERROR ROUTINE 
002056 012737 poeere MOV #340, SeENT VEC? : LEVEL 7 
006064 4 737 ~017540 MOV ASTRAP , AF TRAPVEC sg TRAP VECTOR FOR TRAP CALLS 
0020 1¢? 7 000340 MOV #340, @#TRAPVEC+2;LEVEL 7 
0021 013737 013224 MOV SENDCT, $EOPCT SETUP END-OF -PROGRAM COUNTER 
0021 005037 001176 CLR STIMES * INITIALIZE NUMBER OF ITERATIONS 
002112 005037 0017200 CLR SESCAPE ;: CLEAR THE ESCAPE ON ERROR ADDRESS 
002116 Nig? 7 MOVB  #1,$ERMAX : ALL OM ONE ERROR PER TEST 
00 Ie 012737 002124 MOV #. »SLPADR -: INITIALIZE THE LOOP ADDRESS FOR SCOPE 
002132 012737 002132 MOV »SLPERR -SETUP THE ERROR LOOP ADDRESS 
::SIZE FOR A HARDUARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
:;EQUAL TO A ‘=1'', SETUP FOR A SOFTWARE SWITCH REGISTER. 
002140 013746 MOV @#ERRVEC,-(SP) ss SAVE ERROR VECTOR 
144 012737 00¢ MOV #64$, a#ERRVEC -SET UP ERROR VECTOR 
002152 012737 177570 MOV #DSWR, SWR : ; SETUP FOR A HARDWARE SWICH REGISTER 
160 O1g23¢ 177570 MOV #DDISP,DISPLAY : A HARDWARE DISPLAY REGISTER 
002166 022777 177777 CMP #-1,aSWR «TRY TO REFERENCE HARDWARE SWR 
002174 001012 BNE 66$ - :BRANCH IF NO TIMEOUT TRAP OCCURRED 
;ZAND THE HARDWARE SwWR IS NOT = ~1 
002176 03 BR 65$ -BRANCH IF NO TIMEOUT 
002200 012716 002206 643: MOV #65$, (SP) --SET UP FOR TRAP RETURN 


a a ee ree we a a eee 


— ——— eee ae — eee = ——_ ——— 
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if COMMON TAGS 


ee tee = hee 


NITIALIZE THE SEQ 0026 
002204 000002 RT] 
002206 012737 000176 001140 65$: MOV #SWREG . SWR ;zPOINT TO SOFTWARE SWR 
002214 012737 000174 001142 MOV #DISPREG, DISPLAY 
002222 012637 000004 66$: MOV (SP)+, @#ERRVEC =::RESTORE ERROR VECTOR 
25 : SETUP “‘TIMEOUT’* TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 
26 002226 012737 001706 000004 MOV f#BADTMO.ERRVEC ;:SETUP FOR UNEXPECTED TIMEOUT 
sf 0022 012737 000300 000006 MOV #PR6,ERRVEC+2 LEVEL 6 
29 .SBTTL TYPE PROGRAM NAME 
:;: TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
002242 005227 177777 INC #~1 +sFIRST TIME? 
002246 001037 BNE 67$ :BRANCH IF NO 
002250 022737 013366 000042 CMP ASENDAD , 0442 *:ACT=11? 
002256 001433 BEQ 67$ a he IF YES 
22 104401 002266 TYPE 685 : TYPE ASCIZ STRING 
002264 000450 BR 67$ -=GET OVER THE ASCIZ 
002%6 j5608: -ASCIZ <CRLF>@CZRMSBO - RMO5/3/2 DUAL PORT LOGIC TEST. PT 2a<CRLF> 
-SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
2346 005737 000042 TST at42 : ARE W WE re ry UNDER XXDP/ACT? 
2352 1 BNE 69$ CH IF Y 
002354 023727 001140 000176 CMP SWR,ASWREG ; 3 SOF TWARE SWITCH REG SELECTED? 
2362 001005 BNE 70% ;BRANCH IF 
002364 04406 GTSWR -:GET SOF T-SWR SETTINGS 
02366 000403 BR 70$ 
002370 112737 000001 001134 69%: MOVB #1,$AUTOB ;:SET AUTO-MODE INDICATOR 
002376 70$: 
31 002376 004737 016044 1$: JSR PC ,STKINT ;SETUP THE TTY KEYBOARD 
32 002402 004737 002774 JSR PC, CHANGE : CHECK/CHANGE THE RH/RM ADDRESS 
33 002406 104401 017626 TYPE ,ENTERA - ENTER DRIVE ADDRESS 
34 002412 104412 RDOCT = GET THE ADDRESS 
35 002414 012637 001224 MOV (SP)+,PORTA :STORE THE ADDRESS 
002420 023727 001224 000007 CMP PORTA,A7 ;SEE IF ADDRESS TOO LARGE 
37 002426 101403 BLOS F NOT 
002430 104401 017655 TYPE ~ADRERR ; TYPE ADDRESS ERROR MESSAGE 
39 002434 760 BR TRY AGAIN 
002436 013737 001224 001226 2$: MOV PORTA,PORTB ® GENERATE THE PORT B ADDRESS 
41 002444 005237 001226 INC TB : INCREMENT THE ADDRESS 
002450 2737 000016 001226 BIC #16,PORTB “LEAVE BIT 0 
43 002456 013746 001224 MOV PORTA, ~(SP) PUT PORT A ADDRESS ON THE STACK 
44 002462 2716 177771 BIC #*C6, (SP) : SAVE als 182 
45 002466 052637 001226 BIS (SP)+,PORTB :SET BITS 1 & 2 IN PORT B ADDRESS 
46 002472 104401 017700 TYPE .PORTAIS -"*PORT A ADDRESS IS ' 
47 002476 013746 001224 MOV PORTA,-(SP) +: SAVE. PORTA FOR TYPEOUT 
| :: TYPE PORT A ADDRESS 
002502 104403 TYPOS ::GO TYPE--OCTAL ASCII 
002504 001 BYTE 1 :: TYPE 1 DIGIT(S) 
S20 000 _— BYTE 0 ; g SUPPRESS LEADING ZEROS 
002506 104401 017727 TYPE ,PORTBIS :"PORT B ADDRESS IS ' 
49 002512 013746 001226 MOV PORTB,-(SP) : SAVE PORTB FOR TYPEOUT 
“TYPE PORT B ADDRESS 
002516 104403 TYPOS 3:G0 TYPE--OCTAL ASCII 
002520 001 .BYTE 1 22 TYPE 1 DIGITS) 
00252 000 BYTE 0 : SUPPRESS LEADING ZEROS 
50 002522 104401 001207 TYPE ,SCRLF -ANOTHER CR-LF 


| ee me 


ee eo ee ee | 


sate 


002620 
64 
65 
66 
67 002622 


Jee 
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SS5 
BExs 
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S38888SS5 


SSS 
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013737 
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On 
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Sec 
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SW 
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GET VALUE FOR SOFTWARE 


002622 
017756 


177776 


003122 
025140 


020043 
025110 
001266 


000001 
000000 
001270 


001207 
020127 
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SWITCH REGISTER 


002772 
001104 


3$: 


;ROUTINE TO GET 


EXEC: 


1$: 


2$: 


3$: 





PORTA, PORTC 
#6,PORT 
#*C7,PORTC 
PORTA,R1 

a a 


X 
-NOCLOCK 
3$ 


THE TEST NUMBER 


: GENE 





RATE ADDRESS OF DRIVE NOT TESTED 
OME BITS 





:USE POR DRESS AS INDEX 
:GET ATTENTION BIT FOR DRIVE 


;CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 


:CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
:CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
sCLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
sSETUP CLOCK 

>CLOCK HAS BEEN STARTED 

:NO CLOCK ON SYSTEM 


FATAL ERROR 


: INTERLOCK THE HALT 
FROM THE OPERATOR 


;CLEAR EVERYTHING 

a ey THE PROCESSOR STATUS WORD 
=RH/RM ADDRESS FOR INDEXING 
“LOAD STACK POINTER 

“START THE CLOCK 


sRETURN IF NO CLOCK 

: INITIALIZE THE KEYBOARD 
:CLEAR SINGLE TEST INDICATOR 
:CLEAR THE PASS COUNT 


:SET ERROR MAX TO 1 

: INITIAL SETTING FOR LOOP ADDRESS 

: INITIAL SETTING FOR LOOP ON ERROR ADDRESS 
: ASK ne TEST NUMBER 


NUMBER 
;PUT ENTRY INTO R1 
:BR IF NOT ZERO 

sENTER ZERO - PERFORM ALL TESTS 
:SEE IF NUMBER GREATER THAN MAXIMUM 


:BR IF LESS OR EQUAL 


: GAIN 
:DECREMENT ENTRY 


sSHIFT IT LEFT 
:GET THE TEST ADDRESS 


:SET SINGLE TEST INDICATOR 
ON COUNT 


E 
“TEST ADDRESS GOES HERE 


THE RH/RM UNIBUS ADDRESS USED BY THE PROGRAM 


RESET 
CLR PS 
TYPE . SCRLF 
MOV SRMADR , RO 
MOV MSTACK,SP 
JSR PC, CKCLK 
NOP 
JSR PC ,STKINT 
CLR KYBCTL 
CLR $PASS 
MOVB #1, SERMAX 
MOV #., SLPADR 
MOV #. ,SLPERR 
TYPE » TESTNO 
RDOCT 
MOV (SP)+,R1 
BNE 2$ 
JMP TST1 
CMP R1,MAXTN 
BLE 3$ 
TYPE .-BADNO 
BR 1$ 
DEC R1 
ASL R1 
MOV TSTADR(R1) ,4$ 
INC KYBCTL 
MOV #1, SICNT 
JMP a4$ 
-WORD 0 
TST CHGADR 
BEQ $ 
CLR CHGADR 
TYPE -ADDRIS 

V $RMADR , - (SP) 
TYPOC 
TYPE . $SCRLF 
TYPE eNTRH 


; CHANGE THE ADDRESS ? 
IF NOT 


:BR 

4 THE INDICATOR 

TYPE OUT WHAT THE PRESENT ADDRESS IS 
:PUT THE ADDRESS ON THE STACK 

TYPE THE ACTUAL ADDRESS 


“CRLF 
:ASK FOR NEW ADDRESS 


ee a ee ee 


SEQ 0027 


8888888 
ee 


et ee ned ed kt etd ed ee et aed et Oo 
IN 

- > 

On 


N= Ht 1 OO 
OOC@on DARWN=OSBY 
S8Ssss 

MEM 
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GET VALUE FOR SOF TWARE 


SWITCH REGISTER 


4$: 


000006 000004 5$: 


2$: 


(SP) 

2$ 

(SP) , SRMADR 
(SP) + 
443,044 
SRMADR ,R 
RMWC (RO) 
5$ 

25 

#4, SP 
#6, 044 
PC 
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70 OR ‘CR* ENTERED ? 

7BR IF EITHER ENTERED (NO ADDRESS CHANGE) 
sNEW RH/RM ADDRESS 

CORRECT THE STACK POINTER 

;LOAD TRAP ADDRESS 

GET RH/RM ADDRESS 

sRESPONDS AT THAT ADDRESS ? 

sBR IF YES 


sRESET THE STACK POINTER 
:GET ADDRESS AGAIN 
sRESTORE THE VECTOR 

;RE TURN 


a mee em ee me ee ae ee 


SEQ 0028 


ro 
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TESTS SEQ 0029 
} _SBTTL TESTS 
16 
17 003106 013700 001272 TSTIAA: MOV SRMADR RO ::RESTORE RO AFTER END OF PASS 
18 003110 012746 000240 MOV #PRS,-(SP) >:PUT NEW PS ON STACK 
003114 012746 003122 MOV #64$,-(SP) PUT NEW PC ON STACK 
003120 000002 RTI ::POP NEW PC AND PS 
F 003122 643%: 
0 FAA EAAAAAAEAEAEA AREA AEAEAAAARREAAAHARAKERAKERERARARKERRK ERE EES 
; TEST 1 DRIVE ACCESS TEST 
:*VERIFY THAT THE DRIVE CAN BE ACCESSED THROUGH BOTH PORTS 
oe A. SELECT DRIVE - VERIFY THAT THE DRIVE IS PRESENT, THAT THE 
:* DRIVE IS A DUAL PORT RMOS, RMO3 OR RMO2 AND THAT THE DRIVE 
ge 1S ONLINE (RMDS HAS "MOL", 'PGM', "DPR'. - ‘DRY' BITS SET), 
s* AND THE THE DRIVE SERIAL NUMBER READ THROUGH BOTH PORTS IS 
~ ig* THE SAME. 
oe 
:* B. THE TEST IS REPEATED THROUGH BOTH PORTS. 
** 
ett titi tii t titi titi t ttt ititiiiitititictitittitittittt tt tists 
003122 TST1: 
003122 005737 001266 TST KYBCTL :PERFORMING ONLY SINGLE TESTS ? 
003126 001406 BEQ 2$ -BR IF NOT 
003130 100002 BPL 1$ :BR_IF JUST ENTERED TEST 
003132 000137 002622 JMP EXEC -RETURN & GET NEXT TEST NUMBER 
003136 012737 177777 001266 1$: MOY #-1 .KYBCTL -SET SINGLE TEST INDICATOR 
003144 012737 003160 001106 2$: MOV #TEST1,$LPADR :SETUP SCOPE LOOP ADDRESS 
003132 012737 003160 001110 ites MOV #TEST1,$LPERR :SETUP ERROR LOOP ADDRESS 
003160 112737 000001 001102 ' MOVB #1,$TSTNM :MOVE #1 TEST NUMBER 
003166 012706 001100 MOV #STACK, SP :SETUP THE STACK POINTER 
- 003172 012737 000001 001176 MOV #1,$TIMES ::DO 1 ITERATION 
$2 003200 012760 000040 000010 MOV #CLR,RMCS2(RO) :CLEAR MASSBUS 
$¢ : VERIFY THAT DRIVE IS PRESENT THROUGH PORTS A & B 
33 003206 113760 001224 000010 MOCVB  PORTA.RMCS2(RO) =:SELECT PORT A 
003214 013737 001224 001234 MOV PORTA,PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
003202 005760 000012 TST RMDS (RO) :SEE IF DRIVE (PORT A) PRESENT 
003¢ 6 005037 001244 CLR CKERR CLEAR THE ‘CHECK ERROR’ INDICATOR 
003232 016037 000010 001126 MOV RMCS2(RO),$8DDAT :GET CONTENTS OF RMCS 
003240 012737 000010 001122 MOV #RMCS2,$BDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
003246 060037 001122 ADD RO, $BDADR :ADD RH/RM BASE ADDRESS 
003¢3¢ 005037 001124 CLR $GDDAT “WHAT REGISTER SHOULD BE 
3256 013737 001726 001164 MOV S$BDDAT, STMPO -MOVE REGISTER CONTENTS TO 'S$TMPO' 
003264 042737 167777 001164 BIC #*CNED.$TMPO :SAVE SPECIFIED BITS 
003¢72 023737 0017124 001164 CMP SGDDAT , STMPO : COMPARE THE BITS 
003 001414 BEQ 64$ :BR IF OK 
003302 012737 001126 001174 MOV SBDDAT.STMP4 -COPY ‘BAD DATA’ 
003310 042737 010000 001174 BIC #NED. STMP4 -CLEAR THE MASKED BITS 
003316 053737 001174 0017124 BIS STMP4 , SGDDAT -"OR' WITH GOOP DATA FOR TYPEQUT 
003324 104001 EMT 1 
003326 005137 001244 COM CKERR -SET THE REGISTER COMPARE ERROR INDICATOR 


—sse a me ee 
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DRIVE ACCESS TEST SEQ 0030 
003332 000240 64$: NOP 
003334 005737 001244 TST CKERR WAS "NED' SET ? 
003340 001403 BEO .+10 BR IF NOT 
003342 012760 000060 000010 MOV § #CLR,RMCS2(RO) [ISSUE MASSBUS INIT TO CLEAR ‘NED' 
003350 113760 001226 000010 MOVB  PORTA,RMCS2(RO) “:SELECT PORT B 
003356 013737 001226 001234 MOV «Ss PORTBPTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
003364 005760 000012 TST - RMDS(RO) ;SEE IF DRIVE (PORT 8) PRESENT 
003370 005037 001244 CLR — CKERR [CLEAR THE "CHECK ERROR’ INDICATOR 
003374 016037 000010 001126 MOV -«RMCS2(RO).SBDDAT” :GET CONTENTS OF RMCS2 
003402 012737 000010 001122 MOV § ARMCS2,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
003410 060037 001122 ADD —s« RO, SBDADR ;ADD_RH/RM BASE ADDRESS 
003414 005037 001124 CLR  $GDDAT sWHAT REGISTER SHOULD BE 
003420 013737 001126 001164 MOV §  $BDDAT.$TMPO =: MOVE REGISTER CONTENTS TO ‘STMPO' 
003426 042737 167777 001164 BIC § _#*CNED,STMPO ; SAVE SPECIFIED BITS 
003434 023737 001124 001164 CMP  $GDDAT.STMPO ° ;COMPARE THE BITS 
003442 001414 BEQ ist BR IF OK 
003444 012737 001126 001174 MOV §- $BDDAT,$T™MP4 = : COPY “BAD DATA’ 
603452 042737 010000 001174 BIC #NED, STMP4 :CLEAR THE MASKED BITS 
003460 053737 001174 001124 BiS § $TMP4,$GDDAT  ;'OR' WITH GOOD DATA FOR TYPEOUT 
003466 104001 EMT 1 
003470 005137 001244 COM —s- CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
003474 000240 66$: NOP 
003476 005737 901244 TST CKERR ;WAS "NED' SET ? 
003502 001403 BEQ .+10 :BR IF NOT 
x, 003504 012760 000040 000010 MOV = CLR, RMCS2(RO) ISSUE MASSBUS INIT TO CLEAR ‘NED’ 
35 ; CONFIRM THAT DRIVE IS AN RMOS, RMO3 OR RMO2 AND IS DUAL PORTED 
40 003512 113760 001224 000010 MOVB = PORTA,RMCS2(RO) ;SELECT PORT A 
003520 013737 001224 001234 MOV «Ss PORTA, PTNBR = ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
003526 005037 001244 CLR CKERR ;CLEAR THE "CHECK ERROR’ INDICATOR 
003532 016037 000026 001126 MOV - RMDT(RO),SBDDAT ":GET CONTENTS OF RMDT 
003540 012737 000026 001122 MOV #RMDT . SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
003546 060037 00112 ADD _— RO, SBD ADD RH/RM BASE ADDRESS 
003552 012737 024027 001124 MOV - #O34027-SGDDAT :WHAT REGISTER SHOULD BE 
003560 022737 024024 001126 CMP = #024024,$BDDAT DUAL PORT RMO3 ? 
003566 001413 BEQ 68$ ves ?: 
003570 022737 024025 001126 CMP #024025. $BDDAT DUAL PORT RMO2 ? 
003576 001407 BEQ ss BS : YES 
003600 023737 001124 001126 CMP —-«SGDDAT, SBDDAT 21S THE REGISTER OK ? 
003606 001403 BEQ ss 8S [BR IF OK 
003610 104002 EMT 2 
003612 005137 001244 COM ——- CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
003616 000240 68$: NOP 
003620 113760 001226 000010 MOVB § PORTB.RMCS2(RO) ;SELECT PORT B 
003626 015/37 001226 001254 MOV -—«s« PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
003634 005037 001244 CLR CKERR ;CLEAR THE "CHECK ERROR INDICATOR 
003640 016037 000026 001126 MOV -—- RMDT(RO),SBDDAT ":GET CONTENTS OF RMDT 
003646 012737 000026 001122 MOV § ARMDT, sap ADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
003654 37 001122 ADD —— RO, $AD ;ADD_RH/RM BASE ADDRESS 
003660 012737 024027 001124 MOV -#034027,SGDDAT WHAT REGISTER SHOULD BE 
003666 022737 024024 001126 (MP #024024; $BDDAT DUAL PORT RMO3 ? 
003674 001413 BEQ 70$ YES !! 
003676 022737 024025 001126 CMP = #024025, $BDDAT DUAL PORT RMO2 ? 
003704 001407 BEQ 70$ YES 
003706 023737 001124 001126 (MP —«SGDDAT,$BDDAT I'S THE REGISTER OK ? 
003714 001403 BEQ 70$ =BR IF OK 


_ em ee ee ee cee ee + -. ee ee ee  . 
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ORIVE ACCESS TEST SEQ 0031 
003716 104002 EMI 2 
003720 005137 001244 COM CKERR :SET THE REGISTER COMPARE EROR INDICATOR 
* 903724 000240 70$: NOP 
42 -VERIFY THROUGH BOTH PORTS THAT THE DRIVE IS ON LINE AND IN NEUTRAL 
48 063726 113760 001224 000010 MOVB  PORTA.RMCS2(RO) :SELECT PORT A 
003734 013737 001224 001234 MOV PORTA.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
003742 005037 001244 CLR CKERR :CLEAR THE ‘CHECK ERROR' INDICATOR 
003746 016037 000012 001126 MOV RMDS(RO).$BDDAT °:GET CONTENTS OF RMDS 
003754 012737 000012 001122 MOV #RMDS,$BDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
003762 060037 001122 ADD RO, $BDADR “ADD RH/RM BASE ADDRESS 
003766 012737 001000 001124 MOV #PGM.$GDDAT :WHAT REGISTER SHOULD BE 
003774 013737 001126 001164 MOV SBDDAT,$TMPO  :MOVE REGISTER CONTENTS TO '$TMPO' 
004002 042737 176777 001164 BIC #*CPGM.$TMPO -:SAVE SPECIFIED BITS 
004010 023737 001124 001164 CMP SGDDAT.$TMPO © :COMPARE THE BITS 
004016 001414 BEQ 72$ “BR IF OK 
004020 013737 001126 001174 MOV $BDDAT.$TMP4 = : COPY ‘BAD DATA’ 
004026 042737 001000 001174 Bic #PGM, STMP4 -CLEAR THE MASKED BITS 
004034 053737 001174 001124 BIS $TMP4,$GDDAT  :*OR* WITH GOOD DATA FOR TYPEOUT 
004042 104003 EMT Z 
004044 005137 001244 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
004050 000240 72$: NOP 
004052 005037 001244 CLR CKERR :CLEAR THE "CHECK ERROR’ INDICATOR 
004056 016037 000012 001126 MOV RMDS(RO),$BDDAT ;:GET CONTENTS OF RMDS 
004064 012737 000012 001122 MOV #RMDS.SBDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
004072 060037 001122 ADD RO. $BDADR :ADD RH/RM BASE ADDRESS 
004076 012737 010600 001124 MOV #MOL'DPR'DRY.$GDDAT :WHAT REGISTER SHOULD BE 
004104 013737 001126 001164 MOV SBDDAT.$TMPO  §;:MOVE REGISTER CONTENTS TO '$TMPO' 
004112 042737 167177 001164 BIC #°C10600,$TMPO :SAVE SPECIFIED BITS 
004120 023737 001124 001164 CMP SGDDAT,$TMPO =: COMPARE THE BITS 
004126 001414 BEQ 74$ “BR IF OK 
004130 013737 001126 001174 MOV SBDDAT.STMP4 = COPY "BAD DATA’ 
004136 042737 010600 001174 BIC #10000.$TMP4 | :CLEAR THE MASKED BITS 
004144 053737 001174 001124 BIS S$TMP4,$GDDAT  :'OR* WITH GOOD DATA FOR TYPEOUT 
004152 104004 EMT 4 
004154 005137 001244 COM CKERR :SET THE REGISTER COMPARE EkROR INDICATOR 
004160 000240 743%: NOP 
004162 113760 001226 000010 MOVB PORTB.RMCS2(RO) :SELECT PORT B 
004170 013737 001226 001234 MOV PORTB.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
004176 005037 001244 CLR CKERR -CLEAR THE "CHECK ERROR’ INDICATOR 
004202 016037 000012 001126 MOV RMDS (RO), SBDDAT -GET CONTENTS OF RMDS 
004210 012737 000012 001122 MOV #RMDS.$BDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
004216 060037 001122 ADD RO, $BDADR -ADD RH/RM BASE ADDRESS 
004222 012737 001000 001124 MOV #PGM.$GDDAT :WHAT REGISTER SHOULD BE 
004230 013737 001126 001164 MOV SBDDAT.$TMPO  :MOVE REGISTER CONTENTS TO ‘$TMPO' 
004236 042737 176777 001164 BIC #*CPGM.$TMPO :SAVE SPECIFIED BITS 
004244 023737 001124 001164 CMP $GDDAT.$TMPO | ; COMPARE THE BITS 
004252 001414 BEQ 76$ “BR IF OK 
004254 013737 001126 001174 MOV SBDDAT.$TMP4 § =COPY "BAD DATA’ 
004262 042737 001000 001174 BIC #PGM, STMP4 “CLEAR THE MASKED BITS 
004270 053737 001174 001124 BIS $TMP4.$GDDAT  :'OR* WITH GOOD DATA FOR TYPEOUT 
004276 104003 EMT 3 
004 005137 001244 COM CKERR -SET THE REGISTER COMPARE ERROR INDICATOR 
004304 000240 76$: NGP 
004306 005037 001244 CLR CKERR -CLEAR THE "CHECK ERROR’ INDICATOR 
004312 016037 000012 001126 MOV RMDS(RO),$BDDAT °:GET CONTENTS OF RMDS 
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DRIVE ACCESS TEST SEQ 0032 
004320 012737 000012 007122 MOV #RMDS, SBDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
004326 7 001122 ADD RO. $BDADR :ADD RH/RM BASE ADDRESS 
004332 012737 010600 001124 MOV #MOL ! DPR DRY , SGDDAT ;:WHAT REGISTER SHOULD BE 
004340 013737 001126 001164 MOV $BDDAT.STMPO  :MOVE REGISTER CONTENTS TO ‘$TMPO' 
004346 042737 167177 001164 BIC #7010600, STMPO =SAVE SPECIFIED BITS 
004354 023737 001124 001164 CMP SGDDAT.$TMPO § = COMPARE THE BITS 
004362 0014 BEQ 78$ *BR IF OK 
004364 013737 001126 001174 MOV SBDDAT.$TMP4 = COPY ‘BAD DATA’ 
004372 042737 010600 001174 BIC #10600.$T™MP4 = CLEAR THE MASKED BITS 
004400 053737 001174 001124 BIS $1M?4,$GDDAT  :'OR' WITH GOOD DATA FOR TYPEOUT 
904406 104004 EMT 4 
604410 005137 001244 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
pe 004414 000240 78%: NOP 
50 : VERIFY THAT DRIVE SERIAL NUMBER SEEN THROUGH BOTH PORTS IS THE SAME 
52 004416 113760 0012246 000010 MOVB PORTA, RMCS2(RO) :SELECT PORT A 
53 004424 016037 000930 001124 MOV RMSN(RO).$GDDAT :STORE THE PORT A SERIAL NUMBER 
54 004432 113760 001226 000010 MOVB - PORTB, RMCS2(RO) :SELECT PORT B 
55 004440 016037 000030 001126 MOV RMSN(RO),$BDDAT :STORE THE PORT B SERIAL NUMBER 
56 006446 023737 001124 001126 CMP SGDDAT,$BDDAT :ARE THEY THE SAME ? 
57 004454 001406 BEQ 1$ “BR IF THEY ARE 
58 004456 104005 EMT 5 
59 004460 032777 100000 174452 BIT #SW15,aSWR :HALT ON ERROR ? 
60 004466 001001 BNE 1$ *BR IF SET - PROGRAM HAS ALREADY HALTED 
61 004470 000000 HALT “HALT, POSSIBLE CABLE CONNECTION PROBLEM 
62 004472 000004 1$: SCOPE “LOOP ? 
97 
98 
CF AREER ARERR EAEREAREEAARKAAAREAEAERE KAKA EAE EKER EERE 
“*TEST 2 SET "VV" FOR PORT A 
>*SET VOLUME VALID 
** A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT A. 
** B. ISSUE A READIN PRESET COMMAND THROUGH PORT A. VERIFY 
:* THAT THE "VV" BIT IS SET FOR PORT A. 
"* 
>* C. ISSUE A RELEASE COMMAND THROUGH PORT A. VERIFY THAT 
** THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
:* BIT IS SET. 
etre iitet titi titi tit ttt it it titi titi titi ttt tit titi it iit tite tier 
004474 TST2: 
004474 005737 001266 TST KYBCTL =PERFORMING ONLY SINGLE TESTS ? 
004500 001406 BEQ 2$ “BR IF NOT 
004502 100002 BPL 1$ “BR IF JUST ENTERED TEST 
004504 000137 002622 IMP EXEC “RETURN & GET NEXT TEST NUMBER 
004510 012737 177777 001266 18: MOV #-1,KYBCTL >SET SINGLE TEST INDICATOR 
004516 012737 004532 001106 28: MOV MTEST2,$LPADR :SETUP SCOPE LOOP ADDRESS 
904 524 012737 004532 001110 aie MOV #TIEST2.$LPERR :=SETUP ERROR LOOP ADDRESS 
004532 112737 000002 001102 MOVB  4#2.$TSTNM -MOVE #2 TEST NUMBER 
004540 012706 001100 MOV ASTACK, SP -SETUP THE STACK POINTER 
004544 012737 000001 001176 MOV #1, STIMES =-DO 1 ITERATION 
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SET ‘vv° FOR PORT A SEQ 003% 
004552 113760 001224 900010 MOVB PORTA, RMCS2(RO) [;SELECT PORT 
004560 013737 001224 001234 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
7SE1 VOLUME VALUE FOR PORT 
004566 012760 000011 000000 MOV #11,.RMCS1(RO) 8 ;ISSUE A DRIVE CLEAR 
004574 012760 000021 900000 MOV #21,RMCS1(RO) ;ISSUE A READIN PRESET 
004602 012760 010000 000032 MOV MFMTI6,RMOF(RO) ;SET FMT16 
; VERIFY THAT THE DRIVE STATUS IS CORRECT 
004610 005037 001244 CLR CKERR :CLEAR THE ‘CHECK ERROR® INDICATOR 
004614 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
004622 012737 12 001122 MOV #RMDS,SBDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
30 37 001122 ADD RO, $BDADR ;ADD RH/RM BASE ADDRESS 
004634 012737 9117 001124 MOV #MOL : GM! DPR! DRY! VV $GDDAT ;WHAT REGISTER SHOULD BE 
2 013737 001126 001164 MOV SBDDAT , STMPO :MOVE REGISTER CONTENTS TO ‘$TMPO' 
042737 106077 001164 Bil #°C71700.$TMPO :SAVE SPECIFIED BITS 
004656 023737 001124 001164 CMP SGDDAT , S$TMPO ;COMPARE THE BITS 
001414 BEQ 64$ :BR IF OK 
013737 001126 001174 MOV SBDDAT , STMP4 ;COPY “BAD DATA* 
004674 042737 071700 001174 BIC #71700, $TMP4 :CLEAR THE MASKED BITS 
053737 001174 001124 BIS STMP4 ,SGDDAT ;"OR’ WITH GOOD DATA FOR TYPEOUT 
004710 104010 EMT 10 
004712 005137 001244 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
004716 000240 64$: NOP 3 
sRELEASE THE DRIVE FROM PORT A 
004720 113760 001224 000010 MOVB PORTA,RMCS2(ROQ) ;SELECT PORT A 
004726 013737 001224 001234 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
004754 012760 000013 000000 MOV #13,RMCS1(RO) ; ISSUE RELEASE THROUGH PORT A 
;VERIFY THAT THE DRIVE IS IN NEUTRAL 
004742 005037 001250 CLR RELERR ;CLEAR THE "RELEASE ERROR * INDICATOR 
004746 012737 000012 001122 MOV #RMDS , SBDADR : FORM THE ADDRESS OF RMDS FOR TYPEOUT 
004754 0600357 001122 ? ADD RO, SBDADR ADD THE I/O BASE ADDRESS 
004760 012737 011600 001124 MOV #MOL 'PGM'DPR!DRY, SGDDAT oat ISON CONSTANT 
0047 113760 001224 000010 MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
004774 016037 000012 001170 MOV RMDS(RO),$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A 
005002 013737 001170 001164 MOV STMP2 , STMPO :COPY IT INTO ‘STMPO' 
005010 042737 100100 001164 BIC HATA!VV,$TMPO :CLEAR PORT DEPENDENT BITS FROM THE COPY 
005016 113760 001226 000010 MOVB PORTB,RMCS2(RO) :SELECT PORT B. 
005024 016037 000012 001172 MOV RMDS(RO),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT 8. 
005032 013737 001172 001166 MOV $TMP3,$TMP1 :COPY IT INTO *STMP1' 
005040 042737 100100 001166 BIC WATA'VV,$TMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
005046 025737 001164 001166 CMP STMPO.STMP1 :I1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
005054 001006 BNE 66$ ;BR IF NOT 
005056 005737 001164 TST $STMPO sREGISTERS ARE THE SAME: ARE THEY ZERO ? 
0C5062 001037 BNE 683 ;BR IF NOT 
005064 104034 EMT 34 
005066 000137 005252 JMP 70$ ;BYPASS THE REST OF THE CHECKS 
005072 013737 001170 001126 668: MOV $TMP2, SBDDAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
005100 013737 001226 001234 MOV PORTB,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
005106 113760 001226 000010 MOVB PORTB.RMCS2(RO) :SELECT PORT B. 
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7SET VOLUME VALUE FOR PORT 
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SET ‘vv’ FOR PORT SEQ 0034 
005114 005737 001164 TST STMPO :SEE IF STATUS EQ 0 FROM PORT A. 
005120 001414 BEQ 67$ [BR IF ZERO 
005122 013737 001224 001234 MOV PORTA, PTNBR ;SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
005130 613737 001172 901126 MOV $IMP3.SBDDAT  (:"BAD DATA’ FOR ERROR TYPE OuT 
005136 113760 001224 000010 MOVB PORTA. RMCS2(RO) >SELECT PORT A 
005144 005737 001166 TST $TMP1 >SEE IF STATUS’ FQ ZERO FROM PORT B. 
005150 001004 BNE 68$ =BR IF NOT 
005152 012737 177777 001250 67%: MOV #-1,RELERR [SET "RELEASE ERROR’ INDICATOR 
5160 104036 EMT 36 
005162 013737 001170 001126 68%: MOV $TM?2.$BDDAT  :LOOK FOR BIT FAILURES WHEN RMDS READ 
005170 013737 001224 001234 MOV PORTA,PTNBR ; CHANGE PORT NUMBER 
005176 042737 100100 001170 BIC #ATA'VV.$TMP2  <=DON'T CHECK ATTN BIT OR WV BIT 
005204 023737 001124 001170 CMP SGDDAT.$TMP2  :ALL BITS OK ? 
005212 001401 BEG 69$ “BR IF OK FROM PORT A. 
| 005214 104037 EMT 37 
6005216 013737 001172 001126 69%: MOV S$TMP3,$BDDAT : CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
| e583 013737 001226 001234 MOV PORTB,PTNBR +e E PORT NUMBER 
| 005232 042737 100100 001172 BIC HATA'VV,$IMP3 = DON'T CHECK ATIN BIT OR VV BIT 
005240 023737 001124 001172 CMP $GDDAT,$TMP3 :SEE IF READ OK FROM PORT &. 
005246 001401 BEQ 70$ “BR IF OK 
005250 104037 EMT 37 
005252 000240 70$: NOP 
pa 005254 000004 SCOPE :LOOP ? 
SS EAA RAE EAA AEA AAEAEAE AEA RARER EEA AERA ERASE 
| s*TEST 3 SET ‘vv" FOR PORT B 
:*SET VOLUME VALID 
ts A. ISSUE A DRIVE CLEAR COMMAND THROUGH PORT B. 
:* B. ISSUE A READIN PRESET COMMAND THROUGH PORT B. VERIFY 
on THAT THE ‘VV' BIT IS SET FOR PORT B. 
-* C.  JSSUE A RELEASE COMMAND THROUGH PORT B. VERIFY THAT 
:* THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
:* BIT IS SET. 
TEE IIE IOC IOI UII I UR IODR tI Riki 
005256 TST3: 
005256 005737 001266 TST KYBCTL ;PERFORMING ONLY SINGLE TESTS ? 
005262 001406 BEO 2$ IF NOT 
005264 100002 BPL 1$ :BR IF JUST ENTERED TEST 
005266 000137 002622 MP EXEC ETURN & GET NEXT TEST NUMBER 
005272 012737 177777 001266 18: MOV #-1,KYBCTL CET SINGLE TEST INDICATOR 
005300 012737 005314 001106 28: MOV ‘TEST3.$LPADR :=SETUP SCOPE LOOP ADDRESS 
005 306 012737 005314 007110 aca MOV #TEST3.$LPERR | :SETUP ERROR LOOP ADDRESS 
005314 112737 000003 001102 ' MOVB #3. $TSTNM :MOVE #3 TEST NUMBER 
005322 012706 001100 MOV #STACK, SP :SETUP THE STACK POINTER 
005326 012737 000 001176 MY #1 $TIMES >=DO 1 ITERATION 
005334 113760 001226 000010 MOVB - PORTB.RMCS2(RO) =:SELECT PORT B 
7 005342 013737 001226 601234 MOV PORTB.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
| 
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SET ‘vv" FOR PORT B SEQ 0035 
005350 012760 000011 000000 MOV #11,RMCS1(RO)  ;iSSUE A DRIVE CLEAR 
005356 012760 000021 000000 MOV #21,RMCS1(RO) ISSUE A READIN PRESET 
005364 012760 916000 000032 MOV #FMT16,RMOF (RO) ":SET FMT16 
:VERIFY THAT THE DRIVE STATUS IS CORRECT 
005372 005037 001244 CLR CKERR :CLEAR THE ‘CHECK ERROR" INDICATOR 
005376 016037 000012 001126 MOV RMDS(RO) .$BDDAT ";GET CONTENTS OF RMDS 
005406 012737 000012 001122 MOV #RMDS.$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
005412 060037 001122 ADD RO, SBDADR ;ADD RH/RM BASE ADDRESS 
005416 012737 011700 001124 MOV #MOL : POM! DPR!DRY! VV $GDDAT ;WHAT REGISTER SHOULD BE 
005424 013737 001126 001164 MOV SBDDAT.$TMPO MOVE REGISTER CONTENTS TO ‘$TMPO° 
005432 042737 106077 001164 BIC #*C71700,$TMPO :SAVE SPECIFIED BITS 
005440 023737 001124 001164 CMP $GDDAT,$TMPO COMPARE THE BITS 
005446 001474 BEQ 64$ “BR IF OK 
005450 013737 001126 001174 MOV SBDDAT.$TMP4 =: COPY ‘BAD DATA’ 
005456 042737 071700 001174 BIC #71700,$TMP4 § :CLEAR THE MASKED BITS 
5464 053737 001174 001124 BIS $TMP4,$GDDAT : "OR" WITH GOOD DATA FOR TYPEOUT 
005472 104010 EMT 10 
005474 005137 001244 COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 
005500 000240 64$: NOP 
;RELEASE THE DRIVE FROM PORT B 
005502 113760 001226 000010 MOVB  PORTB,RMCS2(RO) ;SELECT PORT B 
005510 013737 001226 001234 MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
005516 012760 000013 000000 MOV #13.RMCS1(RO) ;ISSUE RELEASE THROUGH PORT B 
;VERIFY THAT THE DRIVE IS IN NEUTRAL 
005524 005037 001250 CLR RELERR :CLEAR THE ‘RELEASE ERROR ° INDICATOR 
005530 012737 000012 001122 MOV #RMDS.SBDADR FORM THE ADDRESS OF RMDS FOR TYPEOUT 
005536 060037 001122 ADD RO, SBDAD :ADD THE I/O BASE ADDRESS 
005542 012737 011600 001124 MOV MOL | PGM' DPR! DRY” $GDDAT ; COMPARISON CONSTANT 
005550 113760 001224 000010 MOVB PORTA,RMCS2(RO) :SELECT PORT A. 
005556 016037 000012 001170 MOV RMDS(RO),$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A 
005564 013737 001170 001164 MOV $TMP2, $TMPO :COPY IT INTO "$TMPO" 
005572 042737 100100 001164 BIC WATA'VV,$TMPO CLEAR PORT DEPENDENT BITS FROM THE COPY 
005600 113760 001226 000010 MOVB §§ PORTB,RMCS2(RO) :SELECT PORT B. 
5 016037 000012 001172 MOV RMDS(RO),$TMP3 GET THE DRIVE STATUS REGISTER FROM PORT B. 
005614 013737 001172 001166 MOV $TMP3,STMP1 :COPY IT INTO '$TMP1' 
5622 042737 100100 001166 BIC #ATA'VV,$TMP1 :CLEAR PORT DEPENDENT BITS FROM THE COPY 
005630 023737 001164 001166 CMP STMPO, $TMP1 :IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
636 001 BNE 66$ :BR IF NOT 
005640 005737 001164 TST $TMPO :REGISTERS ARE THE SAME: ARE THEY ZERO ? 
005644 001037 BNE 68$ ;BR IF NOT 
005646 104034 EMT 34 
005650 000137 006034 JMP 70$ ;BYPASS THE REST OF THE CHECKS 
005654 013737 001170 001126 66%: MOV $TMP2,$BDDAT  :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
005 013737 001226 001234 MOV PORTB,PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
005670 113760 001226 000010 MOVB §§ PORTB, RMCS2(RO) :SELECT PORT B. 
005676 005737 001164 TST $TMPO “SEE IF STATUS EQ 0 FROM PORT A 
005702 001414 BEQ 67$ -BR IF ZERO 
005 013737 001224 001234 MOV PORTA, PTNBR :SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
005712 013737 001172 001126 MOV STMP3,$BDDAT _: "BAD DATA" FOR ERROR TYPE OUT 
005720 113760 001224 000010 MOVB PORTA,RMCS2(RO) :SELECT PORT A 
005726 005737 001166 TST $TMP1 :SEE IF STATUS EQ ZERO FROM PORT B. 
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13 SET ‘vv’ FOR PORT SEQ 0036 
005732 001004 BNE 68$ :BR IF NOT 
005734 012737 177777 001250 67$: MOV #-1 RELERR “SET "RELEASE ERROR' INDICATOR 
005742 104036 EMT 36 
005744 013737 001170 001126 68%: MOV $TMP2, SBDLAT -LOOK FOR BIT FAILURES WHEN RMDS READ 
005752 013737 001224 001234 MOV PORTA.PTNBR :CHANGE PORT NUMBER 
642737 100100 001170 BIC HATA'VV,$TMP2  =DON'T CHECK ATTN BIT OR Vv BIT 
005766 023737 001124 001170 CMP $GDDAT.$TMP2 <ALL BITS OK ? 
005774 001401 BEOQ 69$ “BR IF OK FROM PORT A. 
005776 104037 EMT 37 
013737. 001172 001126 69%: MOV $TMP3,$BDDAT CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
006006 013737 001226 001234 MOV PORTB.PTNBR CHANGE PORT NUMBER 
006014 042737 100100 001172 BIC HATA'VV,$TMP3 :DON'T CHECK ATIN BIT OR VV BIT 
006022 023737 001124 001172 CMP $GDDAT,$TMP3 = SEE _IF READ OK FROM PORT B. 
006030 001401 BEOQ 70$ “BR IF OK 
006032 104037 EMT 37 
006034 000240 70$: NOP 
‘is 006036 000004 SCOPE :LOOP ? 
105 
157 
ST EERE RARER KEE REREAD 
:*TEST 4 MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT A 
“MEASURE THE TIMEOUT ONE=SHOT VALUE THROUGH PORT A 
*"*® 
‘* A. WRITE 0°S INTO RMDS THROUGH PORT A AND VERIFY THAT THE 
:* DRIVE HAS BEEN SEIZED. 
“* 
-* B. WAIT FOR TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT 
:* ONE-SHOT AND SAVE THE VALUE FOR LATER USE. 
** 
:* C. VERIFY THAT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS 
:* TO NEUTRAL 
-* 
TONIC IOI IOIIOIIDI IOI ISI IIOIIIOISIO ISIS IOIDIOIIIOIIIIOISIIOIIIIOIIOI INO Itt 
00604 TST4: 
006040 005737 001266 TST KYBCTL :PERFORMING ONLY SINGLE TESTS ? 
044 001406 BEQ 2$ =BR IF NOT 
006046 100002 BPL 1$ “BR IF JUST ENTERED TEST 
006050 000137 002622 JMP EXEC “RETURN & GET NEXT TEST NUMBER 
006054 012737 177777 001266 13: MOV #-1,KYBCTL “SET SINGLE TEST INDICATOR 
006062 012737 006076 001106 2$: MOV #TEST4.$LPADR =SETUP SCOPE LOOP ADDRESS 
90607 012737 006076 001110 i MOV #TEST4.$LPERR :=SETUP ERROR LOOP ADDRESS 
006076 112737 000004 001102 ' MOVB  #4.$TSTNM :MOVE #4 TEST NUMBER 
006104 012706 001100 MOV #STACK, SP “SETUP THE STACK POINTER 
006110 012737 000001 001176 MOV #1, $TIMES *:DO 1 ITERATION 
006116 005037 001256 CLR TIMEA =CLEAR THE TIMEOUT VALUE STORAGE LOCATION 
006122 005037 001260 CLR TIMEAP :CLEAR THE + 25% TOLERANCE LOCATION 
;START THE TIMER 
006126 005037 001252 CLR TIME =CLEAR THE ELAPSED .!'ME COUNTER 
006132 012737 003720 001254 MOV #2000. ,WATCH -SET WATCH TO 2000. MS 


006140 
906146 
154 
006160 
006166 
006174 
006202 
006210 
006214 
006222 
006226 
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MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT 


;SEIZE THE DRIVE THROUGH PORT A 


001254 


006426 
001252 
013572 


001260 


001256 


001250 


MACRO v04.00 


001166 
001164 
001164 
001164 


000010 
001234 


001256 


000764 


64$: 


65$: 
sWAIT FOR PORT A 


1$: 


2$: 


> VERIFY 


; VERIFY 


3$: 
> VERIFY 
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MOVB PORTA,RMCS2(RO) ;SELECT POR 
MOV PORTA,SEIZPT ;:STORE SEIZING PORT S ADDRESS 
CLR RMDS (RO) TE RMDS 


S(RO : 
PORTB,RMCS2(RO) ;SELECT PORT 8B 
MOV PORTS. PTNBR ;MOvE PORT ADDRESS 10 LOCATION FOR TYPEOUT 
T ITE‘ PORT ADDRESS 


PORTB ,OPPR "OPPO A 
MOV RMDS (RO), "wel iSEE oe DRIVE SEIZED BY PORT A 
RM BASE ADDR 


MOV RO, $BDAD :RH/ E 
ADD #RMDS , _SBDADR : GENERATE BAD REGISTER ADDRESS 
CLR SGDDAT 


REGISTER SHOULD BE ZERO 


CMP $GDDAT,$BDDAT ;1S THE REGISTER ZERO 

BEQ 64$ :BR IF IT IS 

EMT 30 

JMP 4$ :BYPASS REST OF THE SUBTEST 


MOVB PORTA,RMCS2(RO) ;SELECT PORT A 

MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV RMDS(RO),$BDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
MOV #MOL!PGM'DPR!DRY!VV,$GDDAT ;EXPECTED STATUS 

MOV $GDDAT.STMP1 ;USE GOOD DATA AS A MASK 

COM $STMP1 ; COMPLEMENT THE EXPECTED STATUS 

MOV SBDDAT , STMPO :SAVE THE ACTUAL STATUS 

BIC $STMP1 ,$TMPO ;CLEAR UNWANTED BITS 

CMP SGDDAT , STMPO ;ARE THE EXPECTED STATUS BITS SET ? 


BEQ 65$ ;BR IF THEY ARE 
EMT 31 
NOP 


TO TIMEOUT 


MOVB PORTB.RMCS2(RO) ;SELECT PORT B 

MOV PORTB,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
TST RMDS (RO) sWAIT FOR THE DRIVE TO TIMEOUT 
BNE 2$ ;BR WHEN TIMEOUT OCCURS 

TST WATCH ;CHECK WATCH 

on ;BR IF NOT ZERO 

JMP 3$ sBYPASS THE REST OF THE TEST 

MOV TIME, TIMEA ;SAVE THE ELAPSED TIME FOR PORT A 
JSR R5,TOLER BO aks THE TOLERANCE 

-WORD TIMEA TIMEOUT VALUE FOR PORT A 

MOV (SP)+,TIMEAP 425% TOLERANCE 


THAT THE TIMEOUT ONE~SHOT VALUE IS AT LEAST 500 MS 
CMP TIMEA, #500. :IS TIMEOUT VALUE AT LEAST 500 MS ? 
_ - :B8 IF IT IS 


THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT A TIMED OUT 


THAT THE DRIVE IS IN NEUTRAL 
CLR RELERR ;CLEAR THE "RELEASE ERROR * INDICATOR 
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SEQ 0057 
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TIMEOUT ONE-SHOT THROUGH PORT 


001122 


001170 
001126 
001234 


001172 
001172 


66$: 


67$: 


68$: 


69$: 


70$: 
4$: 
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MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT B 


s*TEST 5 


-* 
> *MEASURE THE TIMEOUT ONE-SHOT VALUE THROUGH PORT B 
WRITE O'S INTO RMDS THROUGH PORT B AND VERIFY THAT THE 


#RMDS . SBDADR 
RO, SBDADR 
#MOL ! 


ADD 
PGM'DPR! DRY! VV, $GDDAT 
SELECT 





PORTA, RMCS2 (RO) 





RMDS (RO) ,STMP3 
$TM?3,$TMP1 
HATA!VV,STMP1 
ee 


MP5, $BDDA 
PORTA, *RMCS2(RO) 
STMP1 


68$ 

#-1 ,RELERR 
#11,RMCS1(RO) 
i oRMCS1(RO) 


STMP2, se ah 
PORTA,PTNBR 
HATA, $TMP2 
SGDDAT , STMP2 
69$ 


37 
$TMP3,S$BDDAT 
PORTB,PTNBR 
HATA, STMPS 
SGDDAT , STMP3 
70$ 


37 


DRIVE HAS BEEN SEIZED. 


WAIT FOR TIMEOUT TO OCCUR. MEASURE THE DURATION OF THE TIMEOUT 
ONE-SHOT AND SAVE THE VALUE FOR LATER USE. 


sBYPASS THE REST OF THE CHECKS 
E BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


; COPY 
: CLEAR 


>FORM THE ADDRESS OF RMDS FOR TYPEOUT 
THE 1/0 BASE ADDRESS 
; COMPARISON CONSTANT 


TA 

:GET THE DRIVE” STATUS REGISTER FROM PORT A 
:COPY IT INTO ‘$TMPO* 

:CLEAR PORT DEPENDENT BITS FROM THE COPY 
7SELECT PORT 

:GET THE DRIVE. aie REGISTER FROM PORT B. 


PORT DEPENDENT BITS FROM THE COPY 
3i3 yl al REGISTER THE SAME FROM BOTH PORTS ? 


:BR IF 
sREGISTERS ARE THE SAME: 
:BR IF NOT 


;SET UP POSSIBL 


SELECT 


PORT 6B. 
+SEE : STATUS EQ 0 FROM PORT A. 
F ZERO 


$ SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
: "BAD DATA’ é ERROR TYPE OUT 

>SELECT PORT 

:SEE IF STATUS’ EQ ZERO FROM PORT B. 


:BR IF 

:SET "RELEASE ERROR’ INDICATOR 
:CLEAR THE DRIVE 

sRELEASE THE DRIVE 


sLOOK FOR BIT FAILURES WHEN RMDS READ 
NUMBER 


: CHANGE PORT 

:DON'T CHECK THE ATTN BIT 
sALL BITS OK ? 

:BR IF OK FROM PORT A. 


;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
; CHANGE PORT NUMBER 

:DON'T CHECK THE ATIN BIT 

:SEE IF READ OK FROM PORT B. 

BR IF OK 


;LOOP ? 


<< eee on ee ee ee. Se Cee ee’ —<- 





IT INTO * 


ARE THEY ZERO ? 


SEQ OO 


a 


ow 


—— — = = — —— — 
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;WAIT FOR PORT B TO TIMEOUT 


MEASURE THE TIMEOUT ONE-SHOT THROUGH SEQ 0039 
“« (€. VERIFY THAT THE TIMEOUT OCCURRED AND THAT THE DRIVE RETURNS 
se TO NEUTRAL 
*# 
| Perret titi itt ttt ti itt iti titiitttitiiiitititi titi titi titi i ttt 
006756 TS75: 
006756 005737 001266 TST KYBCTL :PERFORMING ONLY SINGLE TESTS ? 
| 006762 001406 BEO 2$ “BR IF NOT 
| 006764 100002 BPL 1$ “BR IF JUST ENTERED TEST 
006766 000137 002622 JMP —s EXEC “RETURN & GET NEXT TEST NUMBER 
| 006772 012737 177777 001266 18: MOV —s #-1 .KYBCTL :SET SINGLE TEST INDICATOR 
007000 012737 007014 001106 2%: MOV so #TESTS.$LPADR SETUP SCOPE LOOP ADDRESS 
007006 012737 007014 01110 |. MOV #TESTS $LPERR  =SETUP ERROR LOOP ADDRESS 
0070146 112737 0 001102 Mov #5. $TSTNM -MOVE #5 TEST NUMBER 
007022 012706 001100 MOV so #STACK..SP “SETUP THE STACK POINTER 
007026 012737 001176 MOV #1.$TIMES :=DO 1 ITERATION 
007034 005037 001262 CLR TIMEB :CLEAR THE TIMEOUT VALUE STORAGE LOCATION 
007040 005037 001264 CLR TIMEBP =CLEAR THE + 25% TOLERANCE LOCATION 
“START THE TIMER 
007044 005037 001252 CLR TIME CLEAR THE ELAPSED TIME COUNTER 
007080 012737 003720 001254 MOVs #2000..WATCH =< SET _ WATCH TO 2000. 
-SEIZE THE DRIVE THROUGH PORT 8B 
007056 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B 
007064 013737 001226 001236 MOV PORTB.SEIZPT :STORE SEIZING PORT'S ADDRESS 
007072 005060 000012 CLR RMDS (RO) WRITE RMDS 
007076 113760 001224 000010 MOVB PORTA. RMCS2(RO) °:SELECT PORT A 
007104 013737 001224 001234 MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
607112 013737 001224 001240 MOV PORTA_OPPRT OPPOSITE’ PORT ADDRESS 
007120 016037 000012 0011 MOV RMDS (RO) .  SBDDAT “SEE IF DRIVE SEIZED BY PORT B 
007126 010037 001122 MOV _—RO, SBDA :RH/RM BASE ADDRESS 
007132 062737 000012 001122 ADD OREDS. SBDADR —LGENERATE GAD REGISTER ADDRESS 
7140 005037 001124 CLR $GDDAT “REGISTER SHOULD BE ZERO 
007144 023737 001124 001126 CMP $GDDAT.$BDDAT :1S THE REGISTER ZERO 
007152 001403 BEQ 64$ “BR IF IT IS 
7154 104030 EMT 30 
007156 000137 007672 Saal IMP 4$ “BYPASS REST OF THE SUBTEST 
007162 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B 
007170 013737 001226 001234 MOV PORTB,PTNBR -MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
007176 016037 000012 001126 MOV RMDS(RO).$BDDAT :SEE IF SEIZING PORT SEES CORRECT STATUS 
007204 012737 011700 001124 MOV #MOL 'PGM'DPR' DRY! VV.$GDDAT EXPECTED STATUS 
007212 013737 001124 001166 MOV SGDDAT.$TMP1  :USE GOOD DATA AS A MASK 
7220 005137 001166 COM STMP1 > COMPLEMENT THE ast hi STATUS 
007224 013737 001126 001164 MOV $BDDAT.$TMPO “SAVE _THE ACTUAL STATUS 
007282 043737 001166 001164 BIC $TMP1.$TMPO “CLEAR UNWANTED BITS 
0072460 023737 001124 001164 (MP SGDDAT, STMPO :ARE THE EXPECTED STATUS BITS SET ? 
007246 001461 BEQ 65$ -BR IF THEY ARE 
007250 104031 EMT 31 
607252 000240 65$: NOP 
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C€Z7RMSBO RMOS/3/2 DU POR TST 
T MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT B SEQ 0040 
007254 113760 001224 000010 MOVB PORTA. RMCS2(RO) :SELECT PORT 
007262 013737 001224 001234 MOV PORTA;PTNBR :MOVE PORT ADDRESS. TO LOCATION FOR TYPEQUT 
007270 005760 000012 1$: TST RMDS (RO) ;WAIT FOR THE DRIVE TO TIMEOUT 
007274 001006 BNE 2$ “BR WHEN TIMEOUT 0 
007276 005737 001254 TST WATCH =CHECK WATCH 
007302 001372 BNE 1$ :BR IF NOT ZERO 
7 104 EMT 6 
| 007306 000137 007344 JMP 3$ ;BYPASS THE REST OF THE TEST 
007312 013737 0U1252 001262 28: MOV TIME. TIMEB :SAVE THE ELAPSED TIME FOR PORT B 
| 007320 004537 013572 JSR R5, TOLER >CALCULATE THE TOLERANCE 
| 007324 001262 .WORD TIMEB : TIMEOUT VALUE FOR PORT B 
| 007326 012637 001264 MOV (SP)+,TIMEBP § :+25% TOLERANCE 
| ;VERIFY THAT THE TIMEOUT ONE-SHOT VALUE IS AT LEAST 500 MS 
007332 023727 001262 000764 CMP TIMEB, #500. :1S TIMEOUT VALUE AT LEAST 500 MS ? 
007340 103001 BHIS  3$ :BR IF IT IS 
007342 104007 EMT 7 


>VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT B TIMED OUT 


007344 3$: 
;VERIFY THAT THE DRIVE IS IN NEUTRAL 
07344 005037 001250 CLR RELERR ;CLEAR THE ‘RELEASE ERROR ° INDICATOR 
007350 012737 000012 001122 MOV #RMDS , SBDADR :;FORM THE ADDRESS OF RMDS FOR TYPEOUT 
7356 37 001122 ADD RO, SBDADR ;ADD THE I/0 BASE ADDRESS 
007362 012737 011700 001124 MOV 'PGM' DPR! DRY! VV, SGDDAT ;COMPARISON CONSTANT 
007370 113760 001224 000010 MOVB PORTA, RMCS2(RO) = SELECT PORT A. 
007376 016037 000012 001170 MOV RMDS(RO).>TMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
7404 013737 001170 001164 MOV $ s:COPY IT INTO ‘STMPO' 
007412 042737 100100 001164 BiC HATA'VV,.STMPO’ ;:CLEAR PORT DEPENDENT BITS FROM THE COPY 
007420 1137 001226 000010 MOVB PORTB,RMCS2(RO) :SELECT PORT B. 
007426 016037 000012 001172 MOV RMDS(RO),STMPS ;:GET THE DRIVE STATUS REGISTER FROM PORT B. 
7434 013737 001172 001166 MOV STMPS,STMP1 sCOPY IT INTO ‘STMP1' 
007442 042737 100100 001166 BIC BATA'VV, STMP1 ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
7450 023737 001164 001166 CMP STMPO, STMP1 3;I1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
007456 001006 BNE 66$ “BR IF NOT 
7460 005737 001164 TST STMPO “REGISTERS ARE THE SAME: ARE THEY ZERO ? 
007464 001045 BNE 68$ :BR IF NOT 
007466 104034 EMT 34 
007470 000137 007670 JMP 70$ sBYPASS THE REST OF THE CHECKS 
007474 013737 001170 001126 66$: MOV STMP2 , SBDDAT :SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
007502 013737 001226 001234 MOV PORTB,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
007510 113760 001226 000010 MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
007516 005737 001164 TST STMPO s;SEE IF STATUS EQ 0 FROM PORT A. 
007522 001414 BEQ 67$ -BR IF ZERO 
007524 013737 001224 001234 MOV ahh de, sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
007532 013737 001172 001126 MOV $TMP3,$BDD : "BAD DATA’ é % ERROR TYPE OUT 
007540 112760 001224 000010 MOVB PORTA, RCS? (RO) =SELECT PORT A 
007546 005737 001166 TST STMP1 ; SEE IF STATUS” EQ ZERO FROM PORT B. 
007552 001012 BNE 68$ IF NOT 
007554 012737 177777 001250 67$: MOV #-1,RELERR “SET "RELEASE ERROR’ INDICATOR 
75 012760 000011 000000 MOV #11,RMCS1(RO) :CLEAR THE DRIVE 
007570 012760 0000713 000000 MOV #13,RMCS1(RO) “RELEASE THE DRIVE 
007576 104035 EMT 35 
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C7R 
r5 MEASURE THE TIMEOUT ONE-SHOT THROUGH PORT B SEQ 0041 
007600 013737 001170 001126 68$: MOV STMP2, SBDDAT ;LOOK FOR BIT a WHEN RMDS READ 
007606 913737 001224 001234 MOV PORTA, PTNBR ; CHANGE PORT 
007614 942737 100000 001170 BIC #ATA,STMP2 :DON'T CHECK THE ATIN BIT 
007622 023737 001124 001170 CMP SGDDAT , STMP2 ZALL BITS OK ? 
007630 001401 BEC 69% :BR IF OK FROM PORT A 
007632 104037 EMT 37 
007634 013737 001172 001126 69%: MOV STMPS, aon :CHECK RMDS FOR BIT FAILURES = FROM PORT B. 
007642 013737 001226 001234 MOV PORTB,PTNBR > CHANGE PORT NUMBER 
007650 042737 100000 001172 BIC HATA, STMP3 ;DON*T CHECK THE ATIN BIT 
007656 023737 001124 001172 CMP SGDDAT , STMP3 >SEE IF READ OK FROM PORT B. 
007664 001401 BEQ 70$ :BR IF OK 
007666 104037 EMT 37 
007670 000240 70$: NOP 
159 007672 000004 4$: SCOPE sLOyP ? 
160 
177 
178 ZI III IOI TORII I III III IIIT IIIT IO. TOTO En 
: #TEST 6 TEST "PORT SELECT’ SWITCH, DRIVE CYCLED uP 


:*TEST THE OPERATION OF THE ‘PORT SELECT"® SWITCH (DRIVE CYCLED UP). 


A. SWITCH TO PORT ‘A* POSITION. VERIFY THAT THE DRIVE IS IN 
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
PORTS, ARE CORRECT. 


“% 

2 

** 

>* B. SWITCH TO PORT 'B' POSITION. VERIFY THAT THE DRIVE IS IN 
Z NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
- PORTS, ARE CORRECT. 

** 
>* (. RETURN THE "PORT SELECT’ SWITCH TO THE ‘A/B' POSITION. VERIFY 
te THE DRIVE STATE. 

** 
rs 


"KEKE KCKKKKEAEKEKEEAKAEKKEKEEEKEKEAKEKKKEKRKEKEKAEKKEEKEEKEKEAREEEKKKEKKKKKKEK 


i Se Be Be Be Be Be Be Be Be Be Be 


007674 T6: 
C07674 005737 001266 TST KYBCTL s;PERFORMING ONLY SINGLE TESTS ? 
007700 00 BEQ 2$ ; IF NOT 
007702 100002 BPL 1$ 7:BR IF JUST ENTERED TEST 
007704 000137 002622 JMP EXEC ;RETURN & GET NEXT TEST NUMBER 
007710 012737 177777 001266 1$: MOV #-1 ,KYBCTL SET SINGLE TEST INDICATOR 
007716 012737 007732 001106 2$: MOV ATEST6, SLPADR ;SETUP SCOPE LOOP ADDRESS 
tak 012737 007732 001110 reste MOV #TEST6,$LPERR ;SETUP ERROR LOOP ADDRESS 
007732 112737 000006 001102 MOVB #6,31TSTNM sMOVE #6 TEST NUMBER 
007740 012706 007190 MOV ASTACK, SP ig) THE STACK POINTER 
179 007744 012737 000001 001176 MOV #1,$TIMES --DO 1 ITERATION 
180 ;CLEAR ATTENTION BITS FOR BOTH PORTS 
007752 113760 001224 000010 MOVB PORTA. RMCS2(RO) ;SELECT PORT @A 
007760 005 000012 CLR RMDS (RO) SEIZE THE DRIVE 
007764 012760 000011 000000 MOV #11,RMCS1(RO) ; ISSUE DRIVE CLEAR 
007772 9168 000013 000000 MOV #13.RMCS1(RO)  :RELEASE THE DRIVE 
010000 113760 001226 000010 MOVB PORTB,RMCS2 (RO) = SELECT PORT #6 
010006 005060 000072 CLR RMDS (RO) SEIZE THE DRIVE THROUGH PORT ‘B’ 
010012 012760 000011 000000 MOV #11,RMCS1(RO) ;ISSUE DRIVE CLEAR 
070020 012760 000013 000000 MOV #135,RMCS1(RO) ;RELEASE THE DRIVE 
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DRIVE CYCLED UP 


STATUS REGISTER FROM PORT A. 
*STMPO* 


:CLEAR PORT DEPENDENT BITS FROM THE COPY 


STATUS REGISTER FROM PORT B. 
"$TMP1" 


"EQ ZERO FROM PORT B. 


TYPE ~oWICHA :SWITCH TO ‘A* 
TYPE , CONTUE sPRESS ‘CONTINUE’ 
HALT 
: VERIFY THAT THE DRIVE IS IN NEUTRAL 
CLR RELERR ;CLEAR THE ‘RELEASE ERROR ‘ INDICATOR 
MOV #RMDS , SBDADR 7FORM THE ADDRESS OF RMDS FOR TYPEOUT 
ADD RO, SBDADR sADD THE I/G BASE ADDRESS 
MCV #M0._'PGM!DPR!DRY'VV.SGDDAT ;COMPARISON CONSTANT 
MOVB TA,RMCS2(RO) ;SELECT PORT A. 
MOV RMDS(RO),.STMP2 ;GET THE DRIVE 
MOV STMP2 ST ;COPY IT INTO 
BIC HATA! VV,$T 
MOVB PORTB,RMCS2(RO) ;SELECT PORT B. 
MOV RMDS(RO).STMP3 ;:GET THE DRIVE 
MOV STMP3,STMP1 ;COPY IT INTO 
BIC HATA'VV,STMP1 
CMP STMPO.STMP1 
BNE 64$ 
TST STMPO 
BNE 66$ ; 
EMT 34 
JMP 68$ s;BYPASS THE REST OF THE CHECKS 
64$: MOV STMP2, SBDDAT ;SET UP POSSIBLE BAD DATA FOR ERROR 
MOV PORTB,PTNBR 
MOVB PORTB.RMCS2(RO) :SELECT PORT B. 
TST STMPO ;SEE IF STATUS EQ 0 FROM PORT A. 
BEQ 65$ :BR IF ZERO 
MOV PORTA, PTNBR 7SEIZI 
MOV STMP3,SBDDAT ; "BAD DATA’ FOR ERROR TYPE OUT 
MOVB PORTA,RMCS2(RO) ;SELECT PORT A 
TST STMP1 sSEE IF STATUS 
BNE 66$ ;BR IF NOT 
65$: MOV #-1,RELERR :SET ‘RELEASE ERROR’ INDICATOR 
MOV #11,RMCS1(RO) : CLEAR THE DRIVE 
a Staite :RELEASE THE DRIVE 
66$: MOV STMP2 . SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
MOV PORTA, PTNBR ; CHANGE PORT NUMBER 
BIC HATA, STMP2 :DON'T CHECK THE ATIN BIT 
CMP SGDDAT , STMP2 sALL BITS OK ? 
BEQ 67$ ;BR IF OK FROM PORT A. 
EMT 37 
673: MOV STMP3,$BDDAT 
MOV PORTB,PTNBR : CHANG 
BIC HATA, STMPS :DON'T CHECK THE ATIN BIT 
CMP SGDDAT,STMP3 :SEE IF READ OK FROM PORT B. 
BEQ 68$ IF OK 
EMT 37 
68$: NOP 
TYPE ,5WwI CHB :SWITCH TO ‘°B' 
Mig | , CONTUE sPRESS ‘CONTINUE’ 
L 


:VERIFY THAT THE DRIVE IS 


IN NEUTRAL 


——— ee ee ee OO 


:CLEAR PORT DEPENDENT BITS FROM THE COPY 
{1S THE STATUS REGISTER THt SAME FROM BOTH PORTS 2 


é IF NOT 
canis heat ARE THE SAME: ARE THEY ZERO ? 


MESSAGE 
sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


NG PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
: E PORT NUMBER 
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16 TEST “PORT SELECT*® SWITCH, DRIVE CYCLED UP 


010400 005037 001250 CLR RELERR CLEAR THE “RELEASE ERROR * INDICATOR 
010404 012737 000012 001122 MOV #RMDS . SBDADR ;FORM THE ADDRESS OF RMDS FOR TYPEOUT 
910412 060037 001122 ADD RO. SBDADR = ADD THE I/0 BASE ADDRESS 
010616 012737 011700 001124 MOV #MOL ! PGM'DPR'!DRY' vv, SGDDAT a CONSTANT 
010424 113760 001224 000010 MOVA PORTA,RMCS2(RO) :SELECT PORT A 
010432 016037 000012 001170 MOV RMDS (RO) -STMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A, 
010440 013737 001170 001164 MOV STMP2, $TMPO :COPY IT INTO ‘STMPO' 
910446 042737 100100 001164 BIC #ATA!' VV, STMPO = CLEAR PORT DEPENDENT BITS FROM THE COPY 
010654 113760 001226 009010 MOVB PORTB.RMCS2(RO) ;SELECT PORT B. 
| 010462 9160357 1 001172 MOV RMDS(RO).STMP3S :GET THE DRIVE STATUS REGISTE;. FROM PORT B. 
| 010470 013737 001172 001166 MOV STMP3.STMP1 -COPY IT INTO "$TMP1' 
| 010476 2737 100100 001166 Bic #ATAIVV, STMP1 ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
| 010504 023737 001164 001166 CMP STMPO, $TMP1 :1S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
| 010512 1006 BNE 69$ “BR IF NOT 
010514 0057357 001164 TST STMPO -REGISTERS ARE THE SAME: ARE THEY ZERO ? 
| 010520 045 BNE 71$ :BR IF NOT 
| 010522 104034 EMT 34 
| 010524 000137 010724 JMP 73$ er THE REST OF THE CHECKS 
| 0105350 013737 001170 001126 69$: MOV STMP2, $BDDAT :;SET UP POSSIBLE BAD DATA tOR ERROR MESSAGE 
| 010536 013737 001226 001234 MOV PORTB,PTNBR = SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
910544 113760 001226 000010 MOVB PORTB,RMCS2(RO) = SELECT PORT B. 
010552 005737 001164 TST STMPO sSEE IF STATUS EQ 0 FROM PORT A. 
010556 001414 BEQ 70$ “BR IF ZERO 
010560 013737 001224 001234 MOV PORTA,PTNBR sSEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
010566 013737 001172 001126 MOV STMP3,SBDDAT - "BAD DATA’ fs ERROR TYPE OUT 
010574 113760 001224 000010 MOVB PORTA, RMCS2(RO) ;SELECT PORT 
010602 005737 001166 TST STMP1 sSEE iF STATUS’ EQ ZERO FROM PORT B. 
010606 001012 BNE 71$ “BR IF NOT 
010610 012737 177777 001250 /70$: MOV #-1,RELERR SET "RELEASE ERROR’ INDICATOR 
010616 012760 000011 000000 MOV #11,RMCS1(RO) ;CLEAR THE DRIVE 
010624 012760 000013 000000 MOV #13,RMCS1(RO) ;RELEASE THE DRIVE 
010632 104020 EMT 20 
010634 013737 001170 001126 /71$: MOV STMP2, SBDDAT ;LOOK FOR BIT FAILURES WHEN RMDS READ 
010642 013737 001224 001234 MOV PORTA,PTNBR : CHANGE PORT NUMBER 
010650 042737 100000 001170 BIC RATA, $TMP2 DON’ T CHECK THE ATTN BIT 
010656 023737 001124 001170 CMP $GDDAT.$TMP2 -:ALL BITS Ok ? 
010664 001401 BEQ 72$ “BR IF OK FROM PORT A. 
010666 104037 EMT 37 
010670 013737 001172 001126 /72$: MOV STMP3,S$BDDAT ;CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
010676 013737 001226 001234 MOV PORTSB,PTNBR ; CHANGE PORT NUMBER 
010704 042737 100000 001172 BIC HATA, STMPS DON! T CHECK THE ATIN BIT 
010712 023737 001124 001172 CMP SGDDAT,$STMP3 - SEE IF READ OK FROM PORT B. 
010720 001401 BEQ 73$ :BR IF OK 
010722 104037 EMT 37 
010724 000240 73$: NOP 
191 010726 005737 001266 TST KYBCTL :SINGLE TEST MODE ? 
192 010732 001402 BEQ 1$ “BR IF NOT 
193 010734 104401 020156 TYPE , SWI CHN + RE TURN SWITCH TO ‘A/B' 
y «. 010740 000004 1$: SCOPE sLOOP ? 
321 
322 
CC RETA RAAAAERAAAKRAERAEREAREEATEREAAKKEEAARAERAAARK EERE RAREEAEAEEEREEES 
:*TEST 7 TEST ‘PORT SELECT’ SWITCH ON PORT A 


-* 
:*TEST THE OPERATION OF THE ‘PORT SELECT* SWITCH (DRIVE CYCLED DOWN). 


r= —_———— 
; 


2 a ~ = - _ ™ 
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1? TEST "PORT SELECT*® SwITCH ON PORT A SEG 0044 


A. CYCLE THE DRIVE DOWN. 

B. SWITCH TO PORT A POSITION. VERIFY [HAT THE DRIVE IS IN 
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
PORTS, ARE CORRECT. 

C. SWITCH THE “PORT SELECT* SWITCH TO A; CYCLE THE DRIVE UP. 


D. WHEN THE DRIVE CYCLES UP, VERIFY THAT ‘VV-A IS RESET, AND 
THAT *ATA=A IS SET. 


oA DRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH 


F. VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT B AND 
"NED" SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH 

PORT B. ATTEMPT TO SET PORT REQUEST BY WRITING O'S 

INTO RMDS THROUGH PORT B. 


> enweeepneeneneteenhterntrnterte#ere#eetee#eeeses 
rn 
. 


G. ISSUE A RELEASE COMMAND THROUGH PORT A. VERIFY THAT THE 
DRIVE REMAINS LOCKED ON PORT A. 

5 FAA AAA EAA REAR KEKE 
010742 1ST?7: 
010742 005737 001266 TST KYBCTL :PERFORMING ONLY SINGLE TESTS ? 
010746 001406 BEQ 2$ “BR IF NOT 
010750 100002 BPL 1$ -BR IF JUST ENTERED TEST 
010752 000137 002622 JMP EXEC “RETURN & GET NEXT TEST NUMBER 
010756 012737 177777 001266 1S: MOV #~1,KYBCTL -SET SINGLE TEST INDICATOR 
010764 012737 011000 001106 28: MOV #TEST7,$LPADR :SETUP SCOPE LOOP ADDRESS 
910772 012737 011000 001110 Baer MOV #TEST7,$LPERR :SETUP ERROR LOOP ADDRESS 
011000 112737 000007 001102 MOVB  4#7.$TSTNM :MOVE #7 TEST NUMBER 
011006 012706 001100 MOV #STACK,SP >SETUP THE STACK POINTER 
011012 012737 000001 001176 MOV #1, STIMES -:DO 1 ITERATION 
011020 113760 001224 000010 MOVB  PORTA.RMCS2(RO) =:SELECT PORT A 
011026 013737 001224 001234 MOV PORTA,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
011034 104401 020367 TYPE -CYCLED - "CYCLE DOWN THE DRIVE' | 
011060 104401 020224 TYPE “SWICHA >SWITCH TO ‘A’ 
011044 104401 020407 TYPE /CYCLEU = "CYCLE UP THE DRIVE' 
011050 032760 010000 000012 1$: BIT #MOL.RMDS(RO) ;:IS "MOL RESET ? 
011056 001374 BNE 1 -BR IF NO (DRIVE NOT CYCLED DOWN) 
011060 032760 010000 000012 28: BIT #MOL.RMDS(RO)  :IS ‘MOL’ SET ? 
011066 001774 BEO 2$ -BR IF NO (DRIVE NOT CYCLED uP) 

:DRIVE IS CYCLED UP, CHECK STATUS THROUGH PORT A 
011070 005037 001244 CLR CKERR :CLEAR THE "CHECK ERROR’ INDICATOR 
011074 016037 000012 001126 MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
011102 012737 000012 001122 MOV #RMDS.SBDADR ;:FORM REGISTER ADDRESS OF ERROR MESSAGE 
011110 060037 001122 ADD RO, SBDADR -ADD RH/RM BASE ADDRESS 
011114 012737 170600 001124 MOV #ATA'MOL ‘DPR'DRY.$GDDAT :WHAT REGISTER SHOULD BE 
011122 013737 001126 001164 MOV S$RBDDAT.$™MPO  § :MOVE REGISTER CONTENTS TO ‘$TMPO’ 
011130 042737 066077 001164 BIC #°C111700.$T™MPO :SAVE SPECIFIED BITS 
011136 023737 007124 001164 CMP SGDDAT.$TMPO =: COMPARE THE BITS 
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"PORT SELECT® SWITCH ON PORT A SEQ 0045 
011144 001414 BEO 64$ :BR IF OK 
6011146 613737 061126 001174 MOV SRDDAT.STMP4 :COPY “BAD DATA’ 
911154 042737 111700 001174 BIC #111700,$TMP4 = :CLEAR THE MASKED BITS 
011162 053737 001174 061724 BIS SIMP4 .SGDDAT >*OR* WITH GOOD DATA FOR TYPEQUT 
011170 104021 EMT 21 
011172 005137 001244 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
011176 000240 64$: NOP 
-SET VOLUME VALID FOR PORT A 
011200 012760 000011 000000 MOV #11.RMCS1(RO)  <:ISSUE A DRIVE CLEAR 
011206 012760 000021 000000 MOV #21,RMCS1(RO)  :ISSUE A READIN PRESET 
611214 012760 010000 000032 MOV #FMT16,RMOF (RO) :SET FMT16 
:CHECK THE DRIVE STATUS THROUGH PORT B: VERIFY THAT "NED" 
-SETS WHEN THE DRIVE IS ACCESSED THROUGH PORT B. 
011222 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B 
011230 013737 001226 001234 MOV PORTB.PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
071236 005037 001244 CLR CKERR :CLEAR THE "CHECK ERROR' INDICATOR 
611242 016037 000012 001126 MOV RMDS(RO),$BDDAT :GET CONTENTS OF RMDS 
011250 012737 000012 001122 MOV #RMDS , SBDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
011256 060037 001122 ADD RO. $BDADR ADD RH/RM BASE ADDRESS 
611262 005037 001124 CLR $GDDAT -WHAT REGISTER SHOULD BE 
011266 013737 001126 001164 MOV SBDDAT,$TMPO §:MOVE REGISTER CONTENTS TO ‘$TMPO' 
011274 042737 000077 001164 BIC #°C177700,$TMPO :SAVE SPECIFIED BITS 
011302 023737 001124 001164 CMP SGDDAT .$TMPO -COMPARE THE BITS 
011310 001414 BEQ 66$ “BR IF OK 
011312 013737 001126 001174 MOV S$BDDAT, $TMP4 “COPY "BAD DATA’ 
011320 042737 177700 001174 BIC #177700,$TMP4 :CLEAR THE MASKED BITS 
011326 053737 001174 001124 BIS $™MP4 ,$GDDAT -"OR' WITH GOOD DATA FOR TYPEOUT 
011334 104022 EMT 22 
011336 005137 001244 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
011342 000240 668: NOP 
011344 005037 001244 CLR CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 
011350 016037 000010 001126 MOV RMCS2(RO).$BDDAT ;GET CONTENTS OF RMCS2 
611356 012737 000010 001122 MOV #RMCS2,$BDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
011364 060037 001122 ADD RO, $BDADR :ADD RH/RM BASE ADDRESS 
011370 012737 010000 001124 MOV #NED.$GDDAT :WHAT REGISTER SHOULD BE 
011376 013737 001126 001164 MOV SBDDAT,$TMPO = ;=MOVE REGISTER CONTENTS TO 'STMPO' 
011404 042737 167777 001164 BIC #*CNED.STMPO :SAVE SPECIFIED BITS 
011412 023737 001124 001164 CMP $GDDAT.$TMPO — :COMPARE THE BITS 
011420 001414 BEQ 6a$ “BR IF OK 
011422 013737 001126 001174 MOV S$BDDAT, $TMP4 -COPY "BAD DATA’ 
011430 042737 010000 001174 BIC #NED, $TMP4 -CLEAR THE MASKED BIT 
011436 053737 001174 001124 BIS $TMP4, $GDDAT -"OR' WITH GOOD DATA FOR TYPEQUT 
011444 104023 EMT 23 
011446 005137 001244 COM CKERR -SET THE REGISTER COMPARE ERROR INDIC,‘70R 
011452 000240 683: NOP 
011454 005060 000012 CLR RMDS (RO) ; TRY TO SET REQUEST BY WRITING THROUGH 
“THE LOCKED OUT PORT (PORT 'B") 
:VERIFY THAT DRIVE STAYS LOCKED ON PORT A 
011460 113760 001224 000010 MOVB PORTA. RMCS2(RO) ;:SELECT PORT A 
0114666 013737 001224 001234 MOV PORTA.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
011474 012760 000013 000012 MOV #13 RMDS(RO) - ISSUE A RELEASE THROUGH PORT A 
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1ST 2 
T* SWITCH ON PORT A SEQ 004¢ 
001224 001236 MOV PORTA, SEIZPT ZADDRESS OF “LOCKED ON' PORT 
061226 000010 MOVB $PORTB.RMCS2(RO) <-SELECT PORT B 
001226 001234 MOV PORTB.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
001244 CLR CKERR :CLEAR THE ‘CHECK ERROR’ INDICATOR 
000012 001126 MOV RMDS(RO),$BDDAT :GET CONTENTS OF RMDS 
000012 0061122 MOV #RMDS.$BDADR :FORM REGISTER ADDRESS OF ERROR MESSAGE 
001122 ADD RO, $BDADR :ADD RH/RM BASE ADDRESS 
001124 CLR SGDDAT :WHAT REGISTER SHOULD BE 
001126 001164 MOV SBDDAT, STMPO :MOVE REGISTER CONTENTS TO ‘S$TMPO' 
000077 001164 BIC C17 7700, STMPO ;:SAVE SPECIFIED BITS 
0071124 001164 CMP SGDDAT . $TMPO -COMPARE THE BITS 
BEO 70$ :BR IF OK 
001126 001174 MOV SADDAT , STMP4 :COPY "BAD DATA’ 
177700 001176 BIC #177700,$1MP4  :CLEAR THE MASKED BITS 
001174 001124 Bis $TMPS .SGDDAT -"OR' WITH GOOD DATA FOR TYPEOUT 
001244 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
70%: NOP 
:I1F ERROR OCCURRED, CHECK FOR LOOP ON TEST 
001103 ‘STB SERFLG -DID AN ERROR OCCUR 
BEQ -BR IF NOT 
001000 167272 BIT #SWO9, aSWR :SEE IF LOOP ON ERROR (SWR9 = 1) 
BEQ 3$ “BR IF NOT 
11 CLRR  $ERFLG :CLEAR THE ERROR FLAG 
001176 CLR $TIMES “CLEAR THE MAX ITERATION COUNT 
167224 JMP QS$LPERR :GO TO THE LOOP ADDRESS 
001266 3s: TST KYBCTL :IN SINGLE TEST MODE ? 
BEQ 6$ F NOT 
040000 167240 BIT #SW14.aSWR : LOOP ON TEST ? 
BNE 6$ LOOPING 
020367 TYPE ~CYCLED " TYPE "CYCLE DOWN’ 
020156 TYPE SWI CHN ‘SWITCH TO 4/B’ 
020407 TYPE »CYCLEU : "CYCLE THE DRIVE UP" 
001224 000010 MOVB  PORTA.RMCS2(RO) ;:SELECT PORT A 
001224 001234 MOV PORTA.PTINBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
010000 000012 4$: BIT #MOL.RMDS(RO)  :IS ‘MOL’ RESET 
BNE 4$ *BR IF NO (DRIVE —_ CYCLED DOWN) 
010000 000012 S$: BIT #MOL.RMDS(RO) :1S "MOL’ SET ? 
BEQ 5$ “BR IF NO (DRIVE NOT CYCLED UP) 
:SET VOLUME VALID FOR BOTH PORTS | 
000011 000 MOV #11.RMCS1(RO) = :ISSUE A DRIVE CLEAR THROUGH PORT A 
000021 000000 MOV #21.RMCS1(RO) =:ISSUE A READIN PRESET THROUGH PORT A 
000013 000000 MOV #13.RMCS1(RO)  :RELEASE PORT A 
001226 10 MOVB  PORTB,RMCS2(RO) :SELECT PORT B 
001226 001234 MOV PORTB.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
21 MOV #21,RMCS1(RO)  ;ISSUE A READIN PRESET THROUGH PORT 8 
010000 32 MOV #FMT16,RMOF (RO) :SET FMT16 
000013 000000 MOV #13.RMCS1(RO) = :RELEASE PORT B 
011610 001254 6$: MOV #5000. .WATCH -SPINDLE MOTOR ‘COOL DOWN’ DELAY 
001254 7$: TST WATCH -FINSIHED ? 
BNE 7$ -BR IF NOT 
SCOPE =LOOP ? 
R TST10 --GO TO NEXT TES! 
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; STEST 10 TEST “PORT SELECT* SWITCH ON PORT B 

:STEST THE OPERATION OF THE “PORT SELECT* SWITCH (DRIVE CYCLED DOWN). 
A. CYCLE THE DRIVE DOWN. 

6. SWITCH TO PORT B POSITION. VERIFY THAT THE DRIVE IS IN 
NEUTRAL AND THAT THE STATUS BITS IN RMDS, AS READ THROUGH BOTH 
PORTS, ARE CORRECT. 

C. SWITCH THE "PORT SELECT* SWITCH TO B; CYCLE THE DRIVE UP. 


D. WHEN THE DRIVE CYCLES UP, VERIFY THAT ‘VV-B IS RESET, AND 
THAT “ATA-8 IS SET. 


Es AS a A DRIVE CLEAR COMMAND AND A READIN PRESET COMMAND THROUGH 


oaepneenernperernernrernrnrrntr#e#eenetee#e-eketeerereke#ee#eestkserseee#e#ea 
wn 
« 


VERIFY THAT THE DRIVE CANNOT BE ACCESSED THROUGH PORT A AND 
"NED" SETS WHEN ATEMPTING TO ACCESS THE DRIVE THROUGH 

PORT A. ATTEMPT TO SET PORT REQUEST BY WRITING O'S 

INTO RMDS THROUGH PORT A. 


G. ISSUE A RELEASE COMMAND THROUGH PORT B. VERIFY THAT THE 
DRIVE REMAINS LOCKED ON PORT B. 


H. CYCLE THE DRIVE DOWN. CHANGE THE ‘PORT SELECT’ SWITCH TO 
A/B; CYCLE THE DRIVE UP. 


VERIFY THAT BOTH PORTS CAN ACCESS THE DRIVE, THAT BOTH ATTENTION 
BITS ARE SET, AND THAT BOTH ‘VV" BITS ARE RESET. 
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S110: 


— 
o 


. Se Be Bs Be Se Be Se Be Be Se Be Be Se Be Be Be Be 


TST KYBCTL : PERF ORMING ONLY SINGLE TESTS ? 
BEQ 2$ : IF NOT 
BPL 1$ :BR IF JUST ENTERED TEST 
JMP EXEC = RE TURN & GET NEXT TEST NUMBER 
1$: MOV #-1,KYBCTL :SET SINGLE TEST INDICATOR 
23: MOV MTESTIO,$LPADR ;SETUP SCOPE LOOP ADDRESS 
wecris MOV ATESTIO.SLPERR ;SETUP ERROR LOOP ADDRESS 
MOVB #10,$TSTNM sMOVE #10 TEST NUMBER 
MOV #STACK,SP sSETUP THE STACK POINTER 
MOV #1, STIMES ::D0 1 ITERATION 
MOVB PORTB,RMCS2(RO) ;SELECT PORT B 
MOV PORTB,PTNBR -MOVE PORT ADDRESS TO LOCATION FOR TYPEQUT 
TYPE -CYCLED : "CYCLE DOWN THE DRIVE’ 
TYPE , oWI CHB -SWITCH TO °B’ 
TYPE ~CYCLEU = "CYCLE UP THE DRIVE‘ 
1$: BIT SMOL .RMDS (RO) :I1S ‘MOL’ RESET 
BNE 1$ :BR IF NO hy “wot CYCLED DOWN) 
2$: BIT AMOL .RMDS (RO) :IS ‘MOL’ SET 
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TEST °PORT SELECT’ SWITCH ON PORT 


012176 001774 BEQ 2$ :BR IF NO (DRIVE NOT CYCLED UP) 
:DRIVE IS CYCLED UP. CHECK STATUS THROUGH PORT B 
612200 005037 001244 CLR CKERR CLEAR THE "CHECK ERROR" INDICATOR 
012204 016037 000012 001126 MOV RMDS(RO).SBDDAT :GET CONTENTS OF RMDS 
012212 012737 000012 001122 MOV #RMDS , SBDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
012220 060037 001122 ADD RO. SBDADR RH/RM BASE ADDRESS 
012224 012737 110600 001124 MOV #ATA'MOL'DPR:DRY.S$GDDAT :WHAT REGISTER SHOULD BE 
012232 013737 001126 001164 MOV SBDDAT,$TMPO §:MOVE REGISTER CONTENTS TO ‘$TMPO' 
012260 042737 066077 001164 BIC #°C111700.$TMPO — : SAVE SPECIF IED BITS 
012246 023737 001126 001164 CMP SGDDAT,$TMPO § :COMPARE THE BITS 
012254 001414 BEQ 64$ :BR IF OK 
012256 013737 001126 001174 MOV SBDDAT.$TMP4 = : COPY _‘"BAD DATA" 
012264 042737 111700 001174 BIC #111700,$TMP4 :CLEAR THE MASKED BITS 
012272 053737 001174 001124 BIS STMP4 ,$GDDAT -"OR' WITH GOOD DATA FOR TYPEOUT 
012300 104021 EMT 21 
012302 005137 001244 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
012306 000240 64$: NOP 
:SET VOLUME VALID FOR PORT B 
012310 012760 000011 000000 MOV #117.RMCS1(RO) <;ISSUE A DRIVE CLEAR 
012316 012760 000021 000000 MOV #21,RMCS1(RO)  :ISSUE A READIN PRESET 
012324 012760 010000 000032 MOV #FMT16,RMOF (RO) -SET FMT16 


;CHECK THE DRIVE STATUS THROUGH PORT A; VERIFY THAT ‘NED' 
:SETS WHEN THE DRIVE IS ACCESSED THROUGH PORT A. 


012332 113760 001224 000010 MOVB = PORTA.RMCS2(RO) ;:SELECT PORT A 

012340 013737 0012246 001234 MOV PORTA,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
012346 005037 001244 CLR CKERR -CLEAR THE "CHECK ERROR’ INDICATOR 
012352 016037 000012 001126 MOV RMDS(RO),$BDDAT :GET CONTENTS OF RMDS 

012360 012737 000012 001122 MOV #ARMDS , SBDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
012366 060037 001122 ADD RO, SBDADR ) RH/RM BASE ADDRESS 

012372 005037 CLR SGDDAT “WHAT REGISTER SHOULD BE 

012376 013737 001126 001164 MOV SBDDAT.$TMPO §_:MOVE REGISTER CONTENTS TO '$TMPO' 
012404 042737 001164 BIC #*°C177700,$TMPO :SAVE SPECIFIED BITS 

012412 023737 001124 001164 CMP SGDDAT.$TMPO —-: COMPARE THE BITS 

012420 001414 BEQ 66$ “BR IF OK 

012422 013737 001126 001174 MOY SBDDAT.STMP4 = : COPY ~‘"BAD DATA’ 

0124630 042737 177700 001174 BIC #177700,$TMP4 =CLEAR THE MASKED BITS 

012436 053737 001174 001124 BIS S$TMP4.$GDDAT  :'OR' WITH GOOD DATA FOR TYPEOUT 
012444 104022 EMT 22 

012446 005137 001244 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
012452 000240 66$: NOP 

012454 005037 001244 CLR CKE :CLEAR THE "CHECK ERROR’ INDICATOR 
012460 016037 000010 001126 MOV RMESOCRO). $BDDAT :GET CONTENTS OF RM 

012466 012737 000010 001122 MOV #RMCS2, $BDADR ; FORM REGISTER ADDRESS OF ERROR MESSAGE 
012474 37 0017122 ADD RO, SBDADR ADD RH/RM BASE ADDRESS 

012500 012737 010000 MOV #NED, $GDDAT “WHAT REGISTER SHOULD BE 

012506 013737 001126 001164 MOY SBDDAT,$TMPO :MOVE REGISTER CONTENTS TO ‘STMPO' 
012514 042737 167777 BIC #°CNED.$TMPO :SAVE SPECIFIED BITS 

012522 023737 001124 001164 (MP $GDDAT.$TMPO © -:COMPARE THE BITS 

612530 0014 BEQ 68$ “BR IF OK 

01<¢532 013737 001126 001174 MOV $BDDAT,$TMP4 =: COPY +“BAD DATA" 

012549 042737 010000 001174 BIC #NED, $TMP4 “CLEAR THE MASKED BITS 
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SEQ 0048 
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RMOS/3 
TEST “PORT SELECT’ SWITCH ON PORT SEQ 0049 
012546 °3737 001174 0011264 81S STMP4 .SGDDAT >*OR* WITH GOOD DATA FCR TYPEOQUT 
012554 104023 EMT 23 
012556 005137 001244 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
012562 000740 68S: NOP 
012564 005060 000012 CLR RMDS (RO) :TRY TO SET REQUEST BY WRITING THROUGH 
:THE LOCKED OUT PORT (PORT 
-VERIFY THAT DRIVE STAYS LOCKED ON PORT B 
012570 113760 001226 000010 MOVB  PORTB.RMCS2(RO) =:SELECT PORT B 
012576 013737 001226 001234 MOV PORTB.PTNBR ;:MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
012606 012760 0600013 000012 MOV #13, RMDS(RO) : ISSUE A RELEASE THROUGH PORT 8 
012612 013737 001226 001236 MOV PORTB,SEIZPT | :ADDRESS OF ‘LOCKED ON' PORT 
912620 113760 001224 900010 MOVB  PORTA.RMCS2(RO) :SELECT PORT A 
012626 013737 001224 901234 MOV PORTA,PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
012634 005037 001244 CLR CKERR :CLEAR THE "CHECK ERROR’ INDICATOR 
012640 016037 000012 001126 MOV RMDS(RO).$BDDAT ;:GET CONTENTS OF RMDS 
012646 012737 000012 001122 MOV #RMDS,$BDADR ;:FORM REGISTER ADDRESS OF ERROR MESSAGE 
012654 060037 001122 ADD RO, $BDADR :ADD RH/RM BASE ADDRESS 
12660 005037 001124 CLR SGDDAT “WHAT REGISTER SHOULD BE 
012664 013737 001126 001164 MOV SBDDAT,$TMPO §_:MOVE REGISTER CONTENTS TO ‘STMPO' 
012672 042737 000077 001164 BIC #*C177700,$TMPO :SAVE SPECIFIED BITS 
012700 023737 001124 001164 CMP S$GDDAT.$TMPO : COMPARE THE BITS 
012706 001414 BEQ 70$ :BR IF OK 
012710 013737 001126 901174 MOV SBDDAT . STMP4 “COPY "BAD DATA’ 
012716 042737 177700 001174 RIC #177700,$TMP4 :CLEAR THE MASKED BITS 
012724 053737 001174 001124 336 STMP4 ,$GDDAT >"OR' WITH GOOD DATA FOR TYPEOUT 
012732 104024 EMT 24 
012734 005137 001244 COM CKERR :SET THE REGISTER COMPARE ERROR INDICATOR 
012740 000240 70S: NOP 
: IF ERROR OCCURRED, CHECK FOR LOOP ON TEST 
012742 105737 001103 TSTB —- SERFLG ;D1D AN ERROR OCCUR 
012746 001412 BEQ 3$ F 
012750 032777 001000 166162 BIT #SWO9, aSWR -SEE IF LOOP ON ERROR (SWR9 = 1) 
012756 001406 BEQ 3$ “BR IF NOT 
012760 105037 001103 CLRB  $ERFLG :CLEAR THE ERROR FLAG 
012764 005037 001176 CLR $TIMES :CLEAR THE MAX ITERATION COUNT 
012770 000177 166114 JMP a$_LPERR =GO TO THE LOOP ADDRESS 
012774 032777 040000 166136 3$: BIT #5W14,aSwWR -LOOP ON TEST ? 
013002 001054 BNE 6$ -BR IF LOOPING 
013 104401 020367 TYPE -CYCLED ;TYPE *CYCLE DOWN’ 
013010 104401 020156 TYPE SWI CHN > *SWITCH TO A/B" 
013014 104401 020407 TYPE /CYCLEU -*CYCLE THE DRIVE UP' 
013020 113760 001226 000010 MOVB  PORTB.RMCS2(RO) :SELECT PORT B 
013026 013737 001226 001234 MOV PORTB.PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
013034 032760 010000 000012 4$: BIT #MOL.RMDS(RO) :IS ‘MOL’ 
013042 001374 BNE 4$ “BR IF NO (DRIVE NOT CYCLED DOWN) 
013044 032760 010000 000012 5s: BIT #MOL.RMDS(RO)  ;:IS "MOL" SET ? 
013052 001774 BEQ 5$ -BR IF NO (DRIVE NOT CYCLED UP) 
SET VOLUME VALID FOR BOTH PORTS 


01 012 000011 000000 MOV #11,RMCS1(RO) ;ISSUE A DRIVE CLEAR THROUGH PORT B 
013062 012760 000021 900000 MOV #21,RMCS1(RO) ;ISSUE A READIN PRESET THROUGH PORT 8 
01. Ole 000013 000000 MOV #13,RMCS1(RO) ;RELEASE PORT B 
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000070 
001234 


000000 
000032 
000000 
001254 





MOVB =— PORTA, RAC 2 (RO? >SELECT PORT A 
MOV A,PT E PORT ADDRESS TO LOCATION FOR TYPEQUT 
MGV : ISSUE A READIN PRESET THROUGH PORT A 
MOV >SET FM116 
MOV RELEASE PORT 
6$: MOV #5000..WATCH § ;SPINDLE MOTOR "COOL DOWN’ DELAY 
7$: TST WATCH ;FINISHED ? 
BNE 7$ :BR IF NOT 
SCOPE 
JMP $EO? ‘60 TO THE END OF PASS KOQUT INE 
5 RAE AAAAAERAAAAAAAAAAATEARAAARARAARAARAAARARAAARARARARAERHRAKRE AE 
“But NEWTEST HERE 
5 RARER AAEAAAEKAAAAAAAAAAEAEAAAAAAAAAARAAAAARAARAAARAERARENRARHAHERE HEE 
TST11: SCOPE 


rr wm ee ee me ee 


SEQ 0050 


m 4 
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—€ND OF PASS ROUT! 
| 1 .SBTTL END OF PASS ROUTINE 


SEQ 0051 


FURR ARERR EAA E RARE RARE RARER REAARARRRAA RHEE TREK E RARE T ERR E Eee 

> *INCREMENT THE PASS NUMBER (SPASS) 

7*TYPE “END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT yvvyyy'' 
;*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 


:*IF THERES A MONITOR GO TO IT 
:*IF THERE ISN'T JUMP TO TST1AA 


013160 SEOP: 
013160 005737 001266 TST KYBCTL ENTERED TEST VIA KEYBOARD COMMAND ? 
| 013164 001402 BEQ .+6 :BR IF NOT 
| 013166 137 002622 JMP EXEC RETURN TO KEYBOARD CONTROL 
013172 005037 001192 CLR STSTNM : : ZERO THE TEST NUMBER 
013176 005037 001176 CLR STIMES RO THE NUMBER OF ITERATIONS 
013202 005237 001100 INC SPASS :] NCREMENT THE PASS NUMBER 
013206 042737 001100 BIC #100000,$PASS ::DON") y ALLOW A NEG. NUMBER 
013214 005327 DEC (PC)+ 2% 
013216 00000 SEOPCT: .WORD 
013220 3 BGT $SDOAGN :: YES 
013222 012737 MOV (PC) +,a(PC)+ RESTORE COUNTER 
013224 1 SENDCT: .WORD 1 
013226 013216 SEOPCT 
0132 104401 013236 TYPE ,65$ Roh a ASCIZ STRING 
015234 000407 64$ :GET OVER THE ASCIZ 
;365$: .ASCIZ <12><15>/END PASS #/ 
013254 64$: 
013254 013746 001100 MOV $PASS,-(SP) ; SAVE SPASS FOR TYPEOUT 
:: TYPE PASS NUMBER 
013260 104405 TYPDS 3:G0O TYPE--DECIMAL ASCII WITH SIGN 
013262 005737 001112 TST SERTTL ;:SEE IF ANY ERRORS THIS PASS 
015266 001431 BEQ $GT42P ;BR IF NO ERRORS TO REPORT 
013270 104401 013276 TYPE ,67$ ; 7 TYPE ASCIZ STRING 
013274 000421 66$ :GET OVER THE ASCIZ 
013340 SS shat -ASCIZ / TOTAL ERRORS SINCE LAST REPORT / 
013340 013746 001112 MOV SERTTL,-~(SP) + SAVE SERTTL FOR TYPEOUT 
TAL NUMBER OF ERRORS 
013344 104405 TYPDS 760 TYPE--DECIMAL ASCII WITH SIGN 
013346 005037 001112 CLR SERTTL ;CLEAR ERROR TOTAL 
013352 104401 001207 S$GT42P: TYPE ,SCRLF :: TYPE CARRIAGE RETURN, LINE FEED 
013356 013700 000042 $GET42: MOV af42,RO0 T MONITOR ADDRESS 
013362 001405 BEQ GN - = BRANCH IF NO MONITOR 
O eece RESET «CLEAR THE WORLD 
013366 004710 SENDAD: JSR PC, (RO) :;;GO TO MONITOR 
013370 000240 NOP : : SAVE ROOM 
013372 000240 NOP :zFOR 
013374 000240 NOP » sACT1 
013376 $DOAGN 
013376 000137 JMP a(PC)+ : :RETURN 
013400 003104 SRINAD: .WORD TST1AA 
013402 377 377 0OCO SENULL: y is *t “1. > ;NULL CHARACTER STRING 
V 


oe ee ee ee eee ee ~——» -— — + 
ee ee wr ee 


| CZRMASBO RMOS/3/2 DU POR TST 2 
CLOCK SUBROUTINES 


WH © O®O NA WS WR" O OW@ NAW fF wry 


OOOCOOOOCOOOCOCOCOOCCOCOO 
ce ed ed ed ed wD wed eed ed ed ceed ed ed ed eed eed ed ed eed ed 


NNN ANANOA 
VINA) 


PROPOR) — @ @ ae ee 
WN Soo 


24 


OooCco°o°o 


CoCCco°eoeo 


ee eel eed eed eed eed = 


ee ee ee ee ee 


KREFELELEELEEE 
SFSRSEK 


rae 


WW w 
Oownwuw 


FREES 


Ww 


US 


~— 
AMO 


RS 


Orns 


MEMO 


012737 
005 


062737 
005737 


000021 
001254 


000021 
001254 


000002 
000004 


000002 


N 4 
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165546 
165536 


000004 


165502 


000004 


001252 


001254 


-SBTTL CLOCK SUBROUTINES 

sROUTINE TO CHECK FOR KWil-L OR KW11-P CLOCKS 

CKCLK: MOV ACKCLK1,@MERRVEC ;SET UP VECTOR FOR CLOCK CHECK 
CLR + ;NEW PSW 


@FERRVEC+2 ; 
TST aS_LKCSR ;CHECK FOR KW11-P 
MOV SLPVEC,R1 ;KW11-P VECTOR ADDRESS 
MOV ACLOCK, (R1)+ ;SET UP KW11-P VECTOR 
MOV #309, (R1) sPSW - PRI 6 
MOV #-1,a$L_KCSB ;LOAD COUNTER BUFFER WITH 1°S 
MOV #135, a$LKCSR SET CLOCK = CNT UP, 16MS, CONT INT 
BR CKCLK3 
CKCLK1: ADD #4 ,SP sRESTORE THE STACK POINTER 
MOV ACKCLK2,@MERRVEC ;CHANGE ERROR VECTOR TO CHECK FOR KW11T-L 
TST a$L_LKS ;LOOK FOR KW11T-L 
MOV SLLVEC,R1 zKW11-L VECTOR ADDRESS 
MOV ACLOCK, (R1)+ s;SET UP KW11-L VECTOR 
MOV #300, (R1) :PSW - PRI 6 
MOV #100,a$LKS :SET KW11-L INTERRUPT 
BR CKCLK3 
CKCLK2: ADD #4,SP sRESTORE THE STACK POINTER 
ADD #2, (SP) : INCREMENT RETURN, NO CLOCK 
CKCLK3: MOV #6, AAMERRVEC RESTORE THE ERROR VECTOR 
RTS PC 
sROUTINE TO COUNT CLOCK TICKS 
CLOCK: ADD #17.,TIME :ADD 17 MS TO ELAPSED TIME COUNTER 
TST WATCH :I1S WATCH ALREADY ZERO ? 
BEQ :BR IF IT IS 
SUB #17. ,WATCH : SUBTRACT 17 MS FROM WATCH DOG COUNTER 
BPL 1$ :BR IF NOT MINUS 
CLR WATCH ;CLEAR WATCH DOG COUNTER 
1$: RT] :RETURN 


;ROUTINE TO CALCULATE + 25% TIME TOLERANCE VALUES 


TOLER: 751 CSP) ;MAKE ROOM ON THE STACK 
MOV 2(SP), (SP) ;SAVE STACK 
MOV a(R5)+,-(SP) ;GET TIME VALUE 


MOV (SP) ,4 (SP) sMOVE TIME VALUE 

ASR (SP) ;DIVIDE BY 2 

ASR (SP) :DIVIDE BY 2 AGAIN (FOR A TOTAL OF 4) 
ADD (SP) +,2(SP) :CALCULATE UPPER LIMIT FOR TIMEQUT 
RTS R5 . ZRETURN WITH TOLERANCES ON THE STACK 


LOL TE A LE A tt — - 


— 


B 5 
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SCOPE HANDLER ROUTINE SEQ 0055 


1 -SBTTL SCOPE HANDLER ROUTINE 


F SSAA AAA AA AAAS AAAAAAATAAAAAAAATAARAKRARARRAREARARAAEHRRE ERR eeA eee eeee 


: STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

; *AND LOAD THE TEST NUMBER(STSTN™) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

>*THE SWITCH ale one | BY THIS ROUTINE ARE: 


> *SW14=1 ON TES 
> *SW11=1 INHIBIT ITERATIONS 
> *CALL 
;* SCOPE 3: SCOPE=I0T 
013620 SSCOPE: 
013620 104407 CKSWR ::TEST FOR CHANGE IN SOFT-SwR 
013622 006737 014154 JSR PC, STOP 
013626 032777 040000 165304 1$: BIT #B1T14,aSWR LOOP ON PRESENT TEST? 
013634 001402 BEQ 9$ «NO IF Sw14=0 
013656 000137 014136 a JMP SOVER «JUMP OVER SCOPE ROUTINE 
-MAAAASTART OF CODE FOR THE XOR TESTERMMAHA 
013642 000416 $xTSTR: BR 6$ ::1F RUNNING ON THE ‘OR’ TESTER CHANGE 
+: THIS INSTRUCTION TO A ‘NOP’’ (NOP=240) 
013644 013746 000004 MOV @#ERRVEC.-(SP) ::SAVE THE CONTENTS OF THE ERROR VECTOR 
013650 012737 013670 000004 MOV #5$, A#ERRVEC ::SET FOR TIMEOUT 
013656 005737 177060 TST a#177060 :TIME OUT ON XOR? 
013662 012637 000004 MOV (SP) +, @#ERRVEC : :RESTORE THE ERROR VECTOR 
013666 000517 BR $SVLAD :7G0_TO THE NEXT TEST 
013670 022626 S$: CMP (SP) +, (SP)+ CLEAR THE STACK AFTER A TIME OUT 
013672 012637 000004 MOV (SP)+, @#ERRVEC : RESTORE THE ERROR VECTOR 
013676 0005 BR SOVER LOOP ON THE PRESENT TEST 
013700 6%: :AH4HAAEND OF cone FOR THE XOR- TESTERMMAMH 
013700 105737 001103 2$: TSTB = SERFLG ;:HAS AN ERROR OCCURRED? 
013704 001465 BEQ 3$ IF NO 
013706 022737 177777 014524 CMP #-1, CPSAVE SEE IF TIMEOUT WAS PREVIOUSLY RECORDED 
013714 001455 BEQ 2003$ =:KICK AROUND ROUTINE IF SO 
013716 013746 000004 MOV ERRVEC,~-(SP) ::SAVE CONTENTS OF ERROR VECTOR 
013720 012737 013740 000004 MOV #2000$,ERRVEC ::SETUP *TRAP"’ RETURN ADDRESS 
013730 013737 177766 014524 MOV 177766. ,CPSAVE ::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 
013740 012737 177777 014524 2000$: MOV #-1, CPSAVE : 3ST CPU ERROR REGISTER TIMEOUT INDICATOR 
01 3788 O1e7i6 013754 MOV #2001$, (SP) -SETUP RETURN ADDRESS 
013754 012637 000004 2001$: MOV (SP) +, ERRVEC : RESTORE CONTENTS OF ERROR VECTOR 
013760 022737 177777 014524 2002$: CMP #-1, CPSAVE ;:SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
013766 1430 BEO 2003$ CH IF SO 
013770 032737 000001 014524 BIT ABITOO,CPSAVE ::SEE IF THE POWER MONITOR BIT IS ON 
013776 001424 BEQ 2003$ ::BRANCH TO CONTINUE ROUTINE IF CLEAR 
014000 042737 000001 177766 BIC #81100.177766 =::CLEAR THE BIT FOUND TO BE SET 
014006 013746 001140 MOV SWR,-(SP) ;7SAVE SWR ADDRESS 
014012 017646 MOV a(SP) ,-(SP) -SAVE SWR VALUE 
014016 012737 000176 001140 MOV #176, SWR -:GET SOFTWARE SWR ADDRESS 
014024 011677 165110 MOV (SP) .aSWR --GET CURRENT SwWR VALUE 
014030 042777 001000 165102 BIC #81109. aSwR -:DON'T ALLOW LOOP ON ERROR ON THIS ERROR 
014036 104177 EMT 177 >=CALL SPECIAL POWER FAIL BIT ERROR CALL 
014040 012676 000000 MOV (SP)+,a(SP) -=RESTORE SWR TO ORIGINAL VALUE 
014044 012637 001140 MOV (SP) +. SwR -=RESTORE SWR ADDRESS 


EE EEE EE eee = — —_——— oo Se 


ee eee eee ee le 


CZRMSBO RMO5/3/2 DU POR 
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014050 


012746 
012746 
000002 


012746 
012746 
000002 


000207 


TST 2 


061103 
001176 
004000 
001100 
001104 
001176 
000001 
014152 
001102 
001106 
001102 
001106 


000140 
014166 


000240 
014200 
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20038: 
4%: CLRB SERFLG 
CLR STIMES 
165052 3$: BIT #B1T11,aSWR 
BNE 1$ 
TST SPASS 
BEQ 1$ 
INC SICNT 
901104 CMP STIMES,SICNT 
BGE SOVER 
001104 1$: MOV #1,.S1CNT 
001176 MOV SMXCNT .STIMES 
SSVLAD: INCB STSTNM 
MOV (SP) , S$LPADR 
164776 $SOVER: MOV STSTNM.@DISPLAY - 
MOV SLPADR, (SP) 
RTI 
SMXCNT: 5. 
:DROP PRIORITY TO ALLOW CONSOLE 
STOP: 
MOV #PR3,-(SP) 
MOV #64$,- (SP) 
RT] 
643: 


Sy THE ERROR FLAG 
sCLEAR THE NUMBER OF ITERATIONS TO MAKE 


23 aie ee 
SEF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
7 INCREMENT ITERATION COUNT 
: = CHECK THE R OF ITERATIONS MADE 
ITERATION REQUIRED 


:BR IF MORE i 

; :REINITIALIZE THE ITERATION COUNTER 
;SET NUMBER OF ITERATIONS TO DO 

; « COUNT TEST NUMBERS 

:SAVE SCOPE LOOP ADDRESS 

DISPLAY TEST NUMBER 

FUDGE RETURN ADDRESS 


SIRIX ES PS 
- NUMBER OF ITERATIONS 


INTERRUPT 


>;PUT NEW PS ON STACK 
7z;PUT NEW PC ON STACK 
::POP NEW PC AND PS 


sRAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT 


MOV #PR5 ,-(SP) 
MOV #65$,-(SP) 
RTI 

65$: 
RTS PC 


::PUT NEW PS ON STACK 
:;PUT NEW PC ON’ STACK 
::;POP NEW PC AND PS 


;RE TURN 


I Oe ee ——— 


etn ttt tt 


C3 ee 
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CZRMSBO RMOS/3/2 Du POR TST 2 
ERROR HANDLER ROUTINE SEQ 0US5 
1 -SBTTL ERROR HANDLER ROUTINE 
5 SSAA AAAS EAAACAAAAREARAAEARAEARAARARAERAKRARRRKERRAAE ES 
“THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
:sAND GO TO SERRTYP ON ERROR 
> « THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
> *SW15= 1 HALT ON ERROR 
:*SW1 5=1 INHIBIT ERROR TYPEOUTS 
— BEL: ON ERROR 
7 *CALL 
3% ERROR N ;;CRROR=EMT AND N=ERROR ITEM NUMBER 
9014202 105037 014526 SERROR: CLRB IBSAVE 7; CLEAR THE ITEM BYTE SAVE LOCATION 
014206 104407 CKSWR :; TEST FOR CHANGE IN SOF T-SwR 
014210 113737 001102 001242 MOVB STSTNM, TSTNUM 
014216 105237 001103 7$: INCB SERFLG SET THE ERROR FLAG 
014222 001775 BEQ 7$ ;DON'T LET THE FLAG GO TO ZERO 
014224 013777 001102 164710 MOV STSTNM,aDISPLAY - = DISPLAY TEST NUMBER AND ERROR FLAG 
014232 032777 2 164700 BIT #81710,aSWR ;;BELL ON ERROR? 
014240 001402 BEQ 1$ zzNO - SKIP 
014242 104401 001202 TYPE ,$BELL 7 RING BELL 
01424 005237 001712 1$: INC SERTTL 7; COUNT THE NUMBER OF ERRORS 
014252 011637 001116 MOV (SP) .SERRPC “GET ADDRESS OF ERROR INSTRUCTION 
014256 162737 2 001116 SUB #2, SERRPC 
014264 117737 164626 001114 . MOVB @SERRPC,SITEMB ;;:STRIP AND SAVE THE ERROR ITEM CODE 
014272 032777 001000 164640 BIT #BITO9,aSWR +SEE IF LOOP ON ERROR IS SET 
014300 001060 BNE 1004$ CH AROUND ROUTINE IF SO 
014302 122737 000177 001114 #177. SITEMB : 3 SEE IF THIS IS THE POWER FAIL CALL 
014310 1454 10046$ CH AROUND ROUTINE IF IT IS 
014312 105737 014526 IBSAVE SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 
014316 1047 1003$ :BRANCH IF SO 
014320 022737 177777 014524 #-1,CPSAVE :7 SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
014326 001445 1004$ : ;BRANCH IF SO 
014330 013746 000004 ERRVEC,-(SP) : SAVE CONTENTS OF ERROR VECTOR 
014334 012737 014352 000004 #1000$ ,ERRVEC SETUP "TRAP" RETURN ADDRESS 
Oi each AE LEY 177766 014524 tnoea’’ ~CPSAVE ::;MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 
014352 012737 177777 014524 10008: #-1,CPSAVE :sSET CPU ERROR REGISTER TIMEOUT INDICATOR 
014360 012716 014366 MOV #1001$, (SP) ;;SETUP RETURN ADDRESS 
014364 000002 RT] 
014366 012637 000004 1001$: MOV (SP) +, ERRVEC + sRESTORE CONTENTS OF ERROR VECTOR 
014372 022737 177777 014524 1002$: CMP #~1,CPSAVE >: SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
014400 001420 BEQ 1004$ : ;BRANCH IF SO 
014402 032737 000001 014524 BIT #B1T00,CPSAVE : SEC IF POWER MONITOR BIT IS SET IN CPU ERR REG 
014410 001414 BEQ 1004$ : :BRANCH IF OK 
014412 042737 000001 177766 BIC #B1T00,177766 :CLEAR THE BIT FOUND SET 
014420 113737 001114 014526 MOVB SITEMB, IBSAVE ~ CMAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 
014426 112737 000177 001114 MOVB #177, SITEMB ::SET SITEMB TO SPECIAL POWER FAIL POINTER 
014434 02 BR 1004$ : ;BRANCH OVER IBSAVE CLEARING 
Drees 105037 014526 sanze: CLRB IBSAVE :: CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 
014442 032777 020000 164470 BIT #B1T13,aSWR ::SKIP TYPEOUT IF SET 
014450 001004 BNE 20$ -:SKIP TYPEOUTS 
014452 004737 014530 JSR PC, SERRTYP ::GO TO USER ERROR ROUTINE 


014456 
014462 


NOMI Y a a ee 
ORNORARWVO 


10440" 
105737 
001005 


005777 
100002 


000000 
104407 
022737 
001001 


105737 
001236 
000002 


000000 
000000 
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001207 
014526 
164444 


013366 


014526 
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000042 


208: 
23: 


2$: 


6$: 


CPSAVE : 
IBSAVE: 
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- SCRLF 
IBSAVE 
3$ 
aSWR 
3$ 


#SENDAD , d442 
6$ 


IBSAVE 
7$ 


0 
0 


LS ee ee 


SEQ 0056 


7;zSEE If IBSAVE IS LOADED 
;7BRANCH IF NOT - NO HALT 
7;z:HALT ON ERROR 

szSKIP IF CONTINUE 

: T ON ERROR! 


ON PWR MON BIT ERROR 


“TEST FOR CHANGE IN SOFT=-SwR 


3ACT~ -11 AUTO-ACCEPT? 
ee CH IF NO 


si Vea 


+SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
; «BRANCH BACK TO CALL ORIGINAL ERROR 


TURN 
LOCATION TO SAVE CPU ERROR REG CONTENTS 
;z;LOCATION TO SAVE ITEM BYTE 


CZ7RMSBO RMOS/3/2 DU 
ERROR MESSAGE 


VINA" 


23 


650 
e 


662 
664 


PODOODOOCOOCOCOCOOOCOOCOVOCCOOOOOCOCOOO 
el cl ee re em ee ee ee ee ee eed need edt od ood = 2 = 3 od = 

~ 

C 


104401 
010046 


005000 
153700 
001004 


013746 


POR 
TYPEOuT 


001207 


001114 


007116 


000177 


601102 
014726 


001276 
014624 


001207 
014642 


001207 


014722 


- 
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015066 


SEQ 0057 


-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


5 RE EAE AERA EERE EERE RARAEAERAERAEAREREREREE REAR E RE RR ERE 
“STHIS ROUTINE USES THE “‘ITEM CONTROL BYTE’ ($ITEMB) TO DETERMINE WHICH 
:*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE’’ (SERRTB), 
: *AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 


1$: 


1000$: 


1001$: 


es: 
3$: 


4%: 
5$: 


6$: 


7$: 


TYPE . $CRLF 
MOV RO, -(SP) 
RO 


CLR 

B1SB a4$1TEMB,RO 
BNE 1$ 

MOV SERRPC ,-(SP) 
TYPOC 

BR 10$ 

CMPB #177 ,R0 

BNE 1000$ 

MOVB STSTNM,PFITSTN 
MOV APFECH 

BR 1001$ 

DEC RO 

ASL RO 

ASL RO 

ASL 


RO 
ADD #SERRTB RO 
MOV oe 


. $CRLF 
MOV (RU)+,4$ 
BEQ 5$ 


. SCRLF 
MOV R1,-(SP) 
MOV (RQ) +,R1 
9$ 


MOV (RO) +,RO 
TSTB (RO) + 


BNE 7 
MOV @(R1)+,-(SP) 


8$ 
V a(R1)+,=- (SP) 
TYPDS 
TST (R1) 
BEQ 9$ 
TYPE ,11$ 
6$ 
MOV (SP)+,R1 


MOV (SP) +, RO 


33 nage RETURN’ & “LINE FEED" 
2zPICKUP THE ITEM INDEX 


sc IF ITEM NUMBER IS ZERO, JUST 
7: TYPE THE PC OF THE ERROR 
+ 2 SAVE SERRPC FOR TYPEOUT 
;ERROR ADDRESS 
G0 TYPE=-OCTAL ASCII‘(ALL DIGITS) 


: OUT 
;:aee IF t-_” CALL Is SPECIAL POWER FAIL CALL 


:2GET TEST NUMBER 
MOVE POWER FAIL ERROR CALL TABLE TO RO 
: ;BRANCH TO CALL ERROR 
:ZADJUST THE INDEX SO THAT IT WILL 
. WORK FOR THE ERROR TABLE 


77FORM TABLE POINTER 

:z;PICKUP ‘ERROR MESSAGE’’ POINTER 
3z SKIP TYPEOUT IF NO POINTER 

72 TYPE THE “‘ERROR MESSAGE'’ 

77’ ERROR MESSAGE'’ POINTER ah HE RE 
i" CARRIAGE RETURN'’ & "LINE FEED'' 
PICKUP “DATA HEADER’’ POINTER 

>: SKIP TYPEOQUT IF O 
;z TYPE THE “DATA HEADER*' 
::° DATA HEADER'’ POINTER GOES HERE 
7’ CARRIAGE RETURN’* & “LINE FEED‘’ 
77; SAVE R1 
: PICKUP "DATA TABLE’* POINTER 
;BR IF NO DATA TO BE TYPED 
: -PLCKUP "DATA FORMAT” POINTER 
:"OCTAL’* OR oe 
- :BR IF DECIMA 
«SAVE a(R1)+ FOR 7 YPEOUT 
::GO0 TYPE--OCTAL ASCII(CALL DIGITS) 


;Z7SAVE @(R1)+ FOR TYPEOU 
:3GG TYPE--DECIMAL ASCII ‘WITH SIGN 
::1S THERE ANOTHER NUMBER? 


;;BR IF NO 
zTYPE TWO(2) SPACES 
‘SLOOP 


RESTORE R1 
>-RESTORE RO 


are ace acetate a aa ea a ae a a to ~ — 


0146716 
016720 
516722 


014726 
014736 
015620 


915052 
015062 
015066 


040 
014736 
120 
124 
015066 
060 


000000 


Z7RMSBO RMO5/5/2 Du POR TST 2 
PRROR MESSAGE TYPEOUT ROUTINE 


10440*% 001207 
000207 


040 
015020 
117 
105 
001116 
000 
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000 
015052 
127 
123 
014524 
000 


ee eke eee ee eee te ie ee Oe Ee re ee eee ee eee 


11$: 
PFECH: 


PFECH?: 
PFECH2: 


PFECHS: 
PFECHG: 
PFTSTN: 


TYPE -SCRLF 
RTS PC F- ( 
- <* 2 Se ss TWO( 2) SPACES 


“EVEN 
PFECH1,PFECH2,PFECH3,PFECH4 ;:WORDS DEFINING TABLES BELOW 
-ASCIZ ?POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET? 
-ASCIZ 2TESTNO ERR PC. CPUERREG? 

“WORD  PFISIN, SERRPC.CPSAVE.0 


-BYTE 0,0,0.0 
. WORD 0 3: CONTAINS TEST NUMBER FOR PF BIT ERROR 


2 RETURN’ & "LINE FEED*' 


LO eee 


H 5 
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-SBTTL TYPE ROUTINE 


Dee eee RE RR RRRRRARSRRRAARRERRARRRR ERR RR RRR RRR RRR RR ESSER SR RRS RE RA SS SO 


> *ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
>"THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 


: *NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
: *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
7 *NOTES: $F ILLC CONTAINS THE CHARACTER TO FILL AFTER. 
:*CALL: 
:*1) USING A TRAP INSTRUCTION 
i. TYPE -MESADR :zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
zs TYPE 
;* ME SADR 
015070 105737 001157 $TYPE: TSTB $TPFLG 3;:1S THERE A TERMINAL? 
015074 100002 BPL 1$ :7BR IF YES 
| 075076 000000 HAL T 37HALT HERE IF NO TERMINAL 
| 015100 000407 BR 3$ 7 LEAVE 
| 015102 010046 1$: MOV RO,-(SP) :; SAVE RO 
| 015104 017600 000002 MOV a2(SP),RO ;:GET ADDRESS OF ASCIZ STRING 
| 015110 1120466 2$: MOVB (RO) +,-(SP) 3;z;PUSH CHARACTER TO BE TYPED ONTO STACK 
| 015112 001005 BNE 4$ ;:BR IF IT ISN'T THE TERMINATOR 
| 015114 005726 TST (SP) + 72 1F TERMINATOR POP IT OFF THE STACK 
| 015116 012600 60$: MOV (SP)+,RO > RESTORE RO 
| 015120 062716 000002 3$: ADD #2, (SP) 7 ADJUST RETURN PC 
| 015124 000002 RTI : : RETURN 
| 015126 122716 000011 4$: CMPB  —s- #HT, (SP) ; BRANCH IF <HT> 
| 015152 001430 BEQ 8$ 
| 015134 122716 000200 CMAPB MCRLF , (SP) 7; ;BRANCH IF NOT <CRLF> 
015140 001006 BNE 5$ 
015142 005726 TST (SP) + ;z:POP <CR><LF> EQUIV 
015144 104401 TYPE 32: TYPE A CR AND LF 
015146 001207 SCRLF 
015150 105037 0153556 CLRB SCHARCNT 7: CLEAR CHARACTER COUNT 
015154 000755 BR 2$ ::GET NEXT CHARACTER 
015156 004737 015240 5$: JSR PC ,STYPEC ::GO TYPE THIS CHARACTER 
015162 123726 001156 6$: CMPB SFILLC,(SP)+ z:iI1S IT TIME FOR FILLER CHARS.? 
015166 001350 BNE 2$ 3z1F NO GO GET NEXT CHAR. 
015170 013746 001154 MOV SNULL .~ (SP) ::GET # OF FILLER CHARS. NEEDED 
:;AND THE NULL CHAR. 
015174 000001 7$: DECB 1(SP) ;;:DOES A NULL NEED TO BE TYPED? 
015200 002770 BLT 6$ ::;BR IF NO--GO POP THE NULL OFF OF STACK 
015202 004737 015240 JSR PC ,$TYPEC ::GO TYPE A NULL 
015206 105337 015356 DECB $CHARCNT 3:D0 NOT COUNT AS A COUNT 
015212 000770 BR 7$ 3 ;LOOP 
HORIZONTAL TAB PROCESSOR 
| 015214 112716 000040 8$: MOVB a" ,(SP) > REPLACE TAB WITH SPACE 
| 015220 004737 015240 9$: JSR PC ,$TYPEC :; TYPE A SPACE 
| 015224 1352737 000007 015356 BITB 47 , SCHARCNT ; BRANCH IF NOT AT 
: 015232 001372 BNE 9$ >: TAB STOP 
| 015234 005726 TS! (SP) + 3;z;POP SPACE OFF STACK 
015236 000724 BR 2$ :;GET NEXT CHARACTER 


\ ~—— SEL EM et en erm err er ee eee EE Se EE er, EE I LK 
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TYPE ROUT 
0152460 $'YPEC: 
018240 105777 163700 1STR asTKs >> CHAR IN KYBD BUFFER? 
9152644 100022 BPL 10$ + <BR IF NOT 
015246 017746 163674 MOV @$7K8,-(SP) :GET CHAR 
015252 042716 177600 SIC #177600, (SP) : STRIP ny ea BITS 
015256 122716 000023 CMPR @SXOFF , (CSP) WAS CHAR X 
015262 901012 BNE 102$ >:BR IF or 
015264 101$: 
0152664 105777 163654 TSTB astKS :;WAIT FOR CHAR 
015270 100375 BPL 1013 
918272 117716 163650 MOVB a$1K8, (SP) >:GET CHAR 
012648 042716 177600 BIC #177600, (SP) STRIP IT 
015502 122716 000021 CMPB #$XON, (SP) 7zWAS IT XON? 
015306 001566 BNE 101$ :;BR IF NOT 
015310 102%: 
015310 005726 TST (SP)+ s7F 1X STACK 
015312 10$: 
015312 105777 163632 TSTB asTPS >; WAIT UNTIL PRINTER IS READY 
015316 100375 BPL 10$ 
015320 116677 000002 163624 MOVB 2(SP) ,a$TPs est ae CHAR TO BE TYPED INTO DATA REG. 
015526 122766 000015 000002 CMPR #CR,2(SP) :I1S CHARACTER A CARRIAGE RETURN? 
015334 001003 BNE 1$ -:BRANCH IF NO 
015336 105037 015356 CLRB S$CHARCNT i: YES-~CLEAR CHARACTER COUNT 
915342 000406 BR $TYPEX XIT 
015344 122766 000012 900002 1$: CMPB MLF,2(SP) 7:18 CHARACTER A LINE FEED? 
015352 001402 BEQ $TYPEX : BRANCH IF YES 
015354 105227 INCB (PC) + >; COUNT THE CHARACTER 
0153556 000000 SCHARCNT:.WORD OQ 3: CHARACTER COUNT STORAGE 
015360 000207 $TYPEX: RTS PC 


—_—_—-—— — ——_ _- - 
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SINARY TO OCTAL ‘ASCII) AND TYPE 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


eee eee eee RRSRASRASARASRARASLAR RRR SERRA RR ASRE SERS SEES RRS RS ERS SRS ES SG 


**THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
> *OCTAL (ASCII) NUMBER AND TYPE IT. 
> *$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TyPE 


: *CALL: 

:* MOV NUM, - (SP) >:NUMBER TO BE TYPED 

5* TYPOS 7; CALL FOR TYPEOUT 

:* BYTE WN 7zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3 -BYTE M >:M=1 OR O 

Pl 3317=TYPE LEADING ZEROS 

3% 3; 0=SUPPRESS LEADING ZEROS 


7 *$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$1YPOS OR $TYPOC 


> *CALL: 

:* MOV NUM ,- (SP) : ;NUMBER TO BE TYPED 

ee TYPON ;;CALL FOR TYPEOUT 

Be 5 lag HERE FOR TYPEOUT OF A 16 BIT NUMBER 

3 *CALL: 

;* MOV NUM, - (SP) : ;NUMBER TO BE TYPED 

3s TYPOC ;;CALL FOR TYPEOUT 
015362 017646 000000 $TYPOS: MOV a(SP),- (SP) :;PICKUP THE MODE 
015366 116637 000001 015605 MOVB 1(SP) , SOF ILL 3:LOAD ZERO FILL SWITCH 
015374 112637 015607 MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
015400 062716 000002 ADD #2, (SP) : ; ADJUST RETURN ADDRESS 
015404 0004 RR $TYPON 
015406 112737 000001 015605 $TYPOC: MOVB #1,S0F ILL >;SET THE ZERO FILL SWITCH 
015414 112737 000006 015607 MOVB #6. SOMODE +1 >: SET FOR SIX(6) DIGITS 
015422 112737 000005 015604 $TYPON: MOVB #5, S0CNT :;SET THE ITERATION COUNT 
015430 010346 MOV R3,-(SP) : SAVE R3 
015432 01 MOV R4,-(SP) 7: SAVE R4 
015434 010546 MOV R5,-(SP) 7 SAVE RS 
015436 113704 015607 MOVB SOMODE +1,R4 :;GET THE NUMBER OF DIGITS TO TYPE 
015442 005404 NEG a 
015444 062704 000006 ADD #6 RS : ;SUBTRACT IT FOR MAX. ALLOWED 
015450 110437 015606 MOVB R4, SOMODE >: SAVE IT FOR USE 
015454 113704 015605 MOVB SOF ILL ,R4S ::GET THE ZERO FILL SWITCH 
015460 016605 000012 MOV 12(SP) ,R5 :zPICKUP THE INPUT NUMBER 
015464 005003 CLR R3 CLEAR THE OUTPUT WORD 
015466 006105 1$: ROL R5 : ;ROTATE MSB INTO ‘'C'' 
015470 000404 BR 3$ ::GO DO MSB 
015472 006105 2$: ROL R5 3:FORM THIS DIGIT 
015474 006105 | ROL R5 
015476 006105 ROL R5 
015500 010503 MOV RS,R3 
015502 006103 3$: ROL R3 ::GET LSB OF THIS DIGIT 
015504 105337 015606 DECB SOMODE >: TYPE THIS DIGIT? 
015510 100016 BPL 7$ :;BR IF NO 
015512 042703 177770 BIC #177770,R3 ::;GET RID OF JUNK 
615516 001002 BNE 4$ :; TEST FOR O 
015520 005704 TST RS :: SUPPRESS THIS 0? 
015522 001403 BEQ S$ :;BR IF YES 
015524 005204 4$: INC R4 >;DON'T SUPPRESS ANYMORE 0°S 
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BINARY TO OCTAL (ASCII) AND TYPE SEQ 0062 
012248 052703 000060 BIS #°O,R3 7zMAKE THIS DIGIT ASCII 
915532 052703 000040 S$: BIS #* R53 7zMAKE ASCII IF NOT ALREADY 
015536 110337 015602 MOVB R3,8$ >; SAVE FOR TYPING 
015542 104401 015602 TYPE ,8$ 32G0 TYPE THIS DIGIT 
015546 105337 015 7$: DECB SOCNT + = COUNT BY 1 
015552 003347 BGT 2$ :sBR IF MORE TO DO 
015554 002402 BLT 6$ & 

015556 005204 INC R4 «INSURE LAST DIGIT ISN'T A BLANK 
015560 000744 BR 2S 3:GO DO THE LAST DIGIT 

015562 012605 6$: MOV (SP)+,R5 > :RESTORE RS 

015564 012604 MOV (SP)+,R4 RESTORE R4 

015566 012605 MOV (SP)+,R3 : ;RESTORE R3 

015570 1 000002 000004 MOV 2(SP) ,4(SP) :;SET THE STACK FOR RETURNING 
015576 012616 MOV (SP)+, (SP) 

015600 RTI 7 RETURN 

015602 8$ -BYTE 0O STORAGE FOR ASCII DIGIT 
015603 000 -BYTE 0 3: TERMINATOR FOR TYPE ROUTINE 
(15 000 SOCNT: .BYTE 0 ;;O0CTAL DIGIT COUNTER 

015605 000 SOF ILL: .BYTE 0 ::ZERO FILL SWITCH 

075 000000 ‘ 0 > NUMBER OF DIGITS TO TYPE 


CZRMSBO RMO5S/3/2 DU POR TST 2 


SSS SSIS SI SS SS SSS SW SWS SS OO OO 
WINS & & & WinWwnyny-— OOoOnNNN™ 
roe RUORNSE SOK RUSSO SNS 


SOC OSCSCOOOCSSSCOOOCOOOCOCOSGOOCOCSC OOCOOOOCOOOOOOOOCO0OO 


PEPER PUPPET TI TIT ITT A AIDA UII 


NN 
VS 


SSR 


S=AR=O 


020200 
000020 


000055 


016024 
000040 


016014 


000001 
000060 
000040 


000010 


177777 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


000001 


177777 


177776 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


5 ESAS AAA AAAAEAEAAAEAA AEA AARAAAEAAAAAATKAAAEKRARE AREER RRAKRARAREE ES 


“STHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
>; *NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
> *BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


> *CALL 


$TYPDS: 


7$: 


8$: 


9$: 


MOV 
TYPDS 


“REPLACED WITH SPACES. 
NUM, -(SP) 


RO,-(SP) 
R1,-(SP) 
R3,-(SP) 
R5,-(SP) 
#20200,-(SP) 
20(SP) ,R5 
1$ 

R5 

#*=,1(SP) 
RO 


#$DBLK ,R3 
#" | (R3)+ 


R2 
$DTBL (RO) ,R1 
R5 


cs 


(SP) 

7$ 

(SP) 

6$ 

1(SP) ,-1(R3) 
#°0 


(SP) + 

9$ 

-1(SP) ,-2(R3) 
(R3) 


(SP)+,R5 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 


7zPUT THE BINARY NUMBER ON THE STACK 
::GO TO THE ROUTINE 


7zPUSH RO ON STACK 

7;PUSH R1 ON STACK 

7z;PUSH R2 ON STACK 

7:PUSH R3 ON STACK 

>;PUSH RS ON STACK 

;:SET BLANK SWITCH AND SIGN 
:7;GET THE INPUT —_— 


;s SETUP POINTER 
:#SET THE FIRST CHARACTER TO A BLANK 
25 THE BCD NUMBER 
T THE CONSTANT 
FORM THIS BCD DIGIT 


7;:BR IF DONE 
3: INCREASE THE BCD DIGIT BY ij 


::ADD BACK THE CONSTANT 

: = CHECK IF BCD DIGIT=0 
:;FALL THROUGH IF 0 

=: STILL oe LEADING 0'°S? 

: <BR IF YES 


;;BR IF NO 

73 YES--SET THE SIGN 

>sMAKE THE BCD DIGIT ASCII 

>zMAKE IT A SPACE IF NOT ALREADY A DIG 
:zPUT THIS CHARACTER IN THE OUTPUT BUF 
33JUST INCREMENTING 

;;CHECK THE TABLE INDEX 

::GO DO THE NEXT DIGIT 


IT 
FER 


+ E 10 ASCII 
;zWAS THE LSD THE FIRST NON-ZERO? 


:IYES=-SET THE SIGN FOR TYPING 
: he THE TERMINATOR 

, «POP STACK INTO R5 

;POP STACK INTO R35 

: POP STACK INTO R2 
® POP STACK INTO Ri 


SEQ 0063 


O DECIMAL AND TYPE ROUTINE 


C 7RMSBO ee DU POR TST 2 
CONVERT BINARY T 


016024 
000002 
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000004 


SDTAL : 


$DBLK: 


(SP)+,RO 


$DBLK 
2(SP) .4(SP) 
(SP) +, (SP) 


; «POP — INTO hen 
TYPE THE 
: TADJUST THE STACK 
7z7RETURN TO USER 


oe ee ee mm ee 


SEQ 0064 


— ae 


nN 5 
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TTY INPUT & SEQ 0065 


-SBTTL TTY INPUT ROUTINE 


SF TAA AA AEAAAEAAAAAAAAAASSAKAAAAAARARAAAARAKERAERAAKRKRERREKRAA RARER ES 


-ENABL LSB 
016034 000000 STKCNT: .WORD 0 > NUMBER OF ITEMS IN QUEUE 
016036 000000 STKQIN: .WORD 0 3; INPUT POINTER 
916040 000000 STKQOUT: .WORD 0 ;;OQUTPUT POINTER 
016042 STKQSRT: .BLKB 1 7: TTY KEYBOARD QUEUE 
016043 — 


7*iK INITIALIZE ROUTINE 
s*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
: *SETUP THE INTERRUPT VECTOR AND TURN ON THE =. YBOARD INTERRUPT 


“CALL: 
;* JSR PC STKINT 
[s RE TURN 
0716044 005037 016034 STKINT: CLR STKCNT ;CLEAR COUNT OF ITEMS IN QUEUE 
016050 012737 016042 016036 MOV #STKQSRT ,STKQIN ” CMOVE THE STARTING ADDRESS OF THE 
016056 015737 016036 016040 MOV STKQIN,STKQOUT ;;QUEUE INTO THE INPUT & OUTPUT POINTERS. 
016064 0127357 016114 000060 MOV #$STKSRV ,@ATKVEC se INITIALIZE THE KEYBOARD VECTOR 
016072 012737 900200 000062 MOV #200, @ATKVEC+2 3 BR’ LEVEL 4 
016100 005777 163042 TST a$TKA :CLEAR DONE FLAG 
016104 012777 000100 163032 MOV #100, a$TKS >: ENABLE TTY KEYBOARD INTERRUPT 
016112 000207 RTS PC > RETURN TO CALLER 
;*TK SERVICE ROUTINE 
SeTHIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
:sBY READING THE ( CHARACTER FROM THE INPUT BUFFER AND PUTTING 
*“* 
:eIF THE CHARACTER IS A ‘‘CONTROL-C'* (*C) STKINT IS CALLED AND 
; *UPON RETURN EXIT IS MADE TO THE ‘’CONTROL-C** RESTART ADDRESS (START) 
016114 117746 163026 S$TKSRV: MOVB @a$TKB,- (SP) ;:PICKUP THE CHARACTER 
016120 042716 177600 BIC #°C177, (SP) ::STRIP THE JUNK 
016124 021627 000021 CMP (SP), #$XON -:;IS IT A RANDOM XON? 
016130 1002 BNE 30$ : =BRANCH IF NO 
016132 005726 TST (SP)+ ::CLEAN RANDOM XON OFF STACK 
016134 000002 RT] : :RETURN 
016136 308: 
016136 021627 000003 CMP (SP) 43 :21S IT A CONTROL C? 
016142 001007 BNE 1$ :BRANCH IF NO 
016144 104401 017242 . TYPE ,SCNILC - = TYPE A CONTROL-C (*0) 
016150 016044 JSR PC STKINT :: INIT THE KEYBOARD 
016154 005726 TST (SP) + :; CLEAN UP STACK 
016156 000137 001766 JMP START ;: CONTROL C RESTART 
016162 021627 000007 1$ CMP (SP) #7 ::1S IT A CONTROL G? 
016166 BNE 2$ ; s BRANCHi IF NO 
016170 022737 000176 001140 CMP ASWREG, SWR -1S SOFT=-SWR SELECTED? 
016176 001500 BEQ 6% -GO TO SWR CHANGE 
016200 23: 
016200 022737 000001 016034 CMP #1 STK CNT ::1S THE QUEUE FULL? 
016206 001004 ANE 3¢ >:RRANCH IF NO 
016210 104407 001202 TYPF ,SRELL >:RING THE TTY BELL 
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TTy INPUT ROUTINE SEQ 0066 
016214 005726 (SP)+ :3CLEAN CHARACTER OFF OF STACK 
016216 0004651 5$ T 
016220 021627 000023 3$: (SP) #23 3338 IT A CONTROL-S? 

(16226 001021 32$ 33 CH IF NO 

016226 005077 162712 asTKS DISABLE TTY KEYBOARD INTERRUPTS 
016232 005726 (SP)+ «CLEAN CHAR OFF STACK 
016234 105777 162704 31$: asTKS str FOR A CHAR 
016240 100375 31$ LOOP UNTIL ITS THERE 
016242 117746 162700 a$TKB,-(SP) GET THE CHARACTER 
016246 042716 177690 #°C 177, (SP) «MAKE IT 7-B!T ASCII 
016252 022627 00CJ21 (SP)+,#21 31S IT A CONTROL-Q? 
016256 001366 — 31$ 33 CH IF NO 

016260 012777 °°0100 162656 #100, a$TKS : ¢REENABLE TTY KEYBOARD INTERRUPTS 
016270 005 016034 323: STKCNT >: COUNT THIS CHARACTER 
016274 021627 000140 (SP) 4140 ::I1S IT UPPER CASE? 
016300 0024 4 : BRANCH IF YES 
016302 021627 000175 (SP) 4175 ::1S IT A SPECIAL CHAR? 
0163506 003002 4$ $2 CH IF YES 

016310 042716 000040 #40, (SP) ::MAKE IT UPPER CASE 
016314 112677 177516 4$: (SP)+,a$TKQIN =:AND PUT IT IN QUEUE 
016320 005237 016036 STKQIN :UPDATE THE POINTER 
016324 023727 016036 016043 STKOIN, ASTKQEND 260 OFF THE END? 
016332 1003 5$ > BRANCH IF NO 

016334 012737 016042 016036 #S$TKOSRT,STKQIN ::RESET THE POINTER 
016542 5$: > ;RETURN 





J EAA AERAKEAREKEEKERAKEEAERERKKEKEKEKEREEKKKKKKEEKREEKEKCKEEKKREEEEEREE 


: &SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
>*CALL WHEN OPERATING IN TTY INTERRUPT MODE. 


016344 022737 000176 001140 $CKSWR: CMP ASWREG, SWR :z1S THE SOFT-SWR SELECTED 

016352 001124 BNE 15$ -:EXIT IF NOT 

016354 105777 162564 TSTB = @STKS -:1S A CHAR WAITING? 

016360 100121 BPL 15$ >: JF NOT, EXIT 

016362 117746 162560 MOVB aaTen -(SP) YES 

016366 042716 177600 BIC #°C177, (SP) -=MAKE IT 7-BIT ASCII 

016372 021627 000007 CMP (SP) 47 -:1S IT A CONTROL-G? 

016376 001300 BNE 53 oF NOT. PUT IT IN THE TTY QUEUE 
SAAR AERERAEAAEAAEKEREEKEREEREEEKEEKKEKEERKKEEKRERKEKEKKKEEEEEEEKKKEEKKEKEKH 
«CONTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
>*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
-*CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 

016400 123727 001134 000001 6S: CMPB —s« $AUTOR,, 41 ::ARE WE RUNNING IN AUTO-MODE? 

016406 001674 BEQ 2$ : :BRANCH IF YES 

016410 005726 TST (SP)+ ‘EAR CONTROL-G OFF STACK 

016412 004737 016044 JSR PC $TKINT >-FLUSH THE TTY INPUT QUEUE 

016416 005077 162522 CLR a$sTKs *DISABLE TTY KEYBOARD INTERRUPTS 

016422 112737 000001 001135 MOVB #1,$INTAG «SET INTERRUPT MODE INDICATOR 

016430 104401 017254 TYPE SSCNILG -:ECHO THE CONTROL-G (*G) 

016434 104401 017261 $GTSWR: TYPE " $MSWR >: TYPE CURRENT CONTENTS 

016440 013746 000176 MOV SWREG, - (SP) -=SAVE SWREG FOR TYPEOUT 

016444 104402 TYPOC -*GO TYPE--OCTAL ASCII(ALL DIGITS) 


EE EE Se me 


5-5 OS BOO aan 
pS saea ears Aaa te we 


SeR eS RES 


Oo 


= le) we) ee) ee) ee) eo) ee) eo) oe) ele) ee) 2) 2) 2) ele) eels) 


33 


117746 
042716 


021627 
101 
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017272 
162462 
162456 
177600 
000003 
017242 
000006 
001135 
000100 
001766 


000025 
017247 
000606 


000015 
000004 
000002 
000006 
001207 
001135 
000100 
015240 
000060 


000067 


000060 
000002 


000002 
177776 
001206 
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000001 
162414 


162342 


000001 
162520 


19$: 


7$: 


20$: 


17$: 


18$: 


TYPE 


BR 
-DSABL LSB 


. SMNEW 
-(SP) 
- (SP) 
a$TKS 
7$ 


a$TKB,-(SP) 
#°C177. (SP) 
(SP) #3 

9$ 

SSCNTLC 
#6,SP 
SINTAG, #1 
8$ 

#100, a$TKS 
START 


SP) ,aSWR 
SP 


.$CRLF 
SINTAG. #1 
15$ 


#100, a$TKS 


PC ,STYPEC 
oo 


8 
(SP) ,467 


2 (SP) 
-2(SP), (SP) 
7$ 

. SQUES 

20$ 


::PROMPT FOR NEW SWR 


3: CHAR THERE? 
zz: IF NOT TRY AGAIN 


7zPICK UP CHAR 
7zMAKE IT 7-BIT ASCII 


3:1S IT A CONTROL-C? 

> :BRANCH IF NOT 

7zYES. ECHO CONTROL-C (*C) 

7zCLEAN UP STACK 

7 7REENABLE TTY KEYBOARD INTERRUPTS? 
> BRANCH IF NO 

7;;ALLOW TTY KEYBOARD INTERRUPTS 

>; CONTROL-C RESTART 


3:18 IT A CONTROL-U? 

7 BRANCH IF NOT 

77YES, ECHO CONTROL-U (“*U) 
3: IGNORE PREVIOUS INPUT 
s;z;LET'S TRY IT AGAIN 


3:18 IT A <CR>? 

3 CH IF NO 

szYES, IS IT THE FIRST CHAR? 
CH IF YES 


72 SAVE NEW SWR 
::CLEAR UP STACK 


: AND <LF> 
3; RE-ENABLE a KBD INTERRUPTS? 
> ;RE-ENABLE TTY KBD INTERRUPTS 


= =BRANCH IF YES 


: ;BRANCH IF YES 
::STRIP-OFF ASCII 

3771S THIS THE FIRST CHAR 
: ;BRANCH IF YES 

::NO, SHIFT PRESENT 

s3 CHAR OVER TO MAKE 
53 ROOM FOR NEW ONE. 
3:KEEP COUNT OF CHAR 


:: TYPE ?<CR><LF> 
>: SIMULATE CONTROL-U 


SF EA AAAARERAAAAARARAAHAAERAEAERARAEAAEEAEREKEAAERAEKEERTHEAAAERERARE SEARS 


ae a ee ee ee em een etme 


SEO 0067 


So EE = 


-— 


——_ 
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TTY INPUT ROUTINE SEQ 0068 


a rg ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
- 
7z:GET A CHARACTER FROM THE QUEUE 


-* RDCHR 
_ RETURN HERE >: CHARACTER IS ON THE STACK 
:* >:WITH PARITY BIT STRIPPED OFF 


016706 011646 SRDCHR: MOV (SP) .-(SP) >:PUSH DOWN THe PC AND 
016710 016666 000004 000002 MOV 4(SP) ,2(SP) 7: THE PS 
016716 005 000004 CLR 4(SP) 3;;GET READY FOR A CHARACTER 
016722 0C5046 CLR ~(SP) >:PUT NEW PS ON STACK 
O10768 012746 016732 MOV #64%,-(SP) >z;PUT NEW PC ON STACK 
016 000002 RTI :;POP NEW PC AND PS 
016732 64$: 
016732 005737 016034 1$: TST STKCNT >;WAIT ON A CHARACTER 
016736 001775 BEG 1$ 
016740 005337 016034 DEC STKCNT : ;DECREMENT THE COUNTER 
016744 117766 177070 000004 MOVB @aSTKQOUT ,4¢(SP) +sGET ONE CHARACTER 
016752 005237 016040 INC $TKQOUT sUPDATE THE POINTER 
016756 023727 016040 016943 CMP STKOOUT, #STKQEND 3gDID IT GO OFF OF THE END? 
016764 001003 BNE 2$ >;BRANCH IF NO 
016766 012737 016042 016040 MOV #STKQSRT,$STKQOUT + >RESET THE POINTER 
016774 000002 2s: RT] : sRETURN 
SEEKER EKEKEKREREEKKEEREKKKKEEKEEKRKEKEKKKEEKEKEEKKEEKEEKEKKEKEE 
:STHIS | ROUTINE WILL INPUT A STRING FROM THE TTY 
Ei: 
:* RDLIN >; INPUT A STRING FROM THE TTY 
7* RETURN HERE ;;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
;* 72 TERMINATOR WILL BE A BYTE OF ALL O'S 
016776 010346 SRDLIN: MOV R3,-(SP) 72 SAV VE R3 
017000 005046 } CLR ~ (SP) :CLEAR THE RUBOUT KEY 
017002 012703 017232 1$: MOV ASTTYIN,R3S -=GET ADDRESS 
017006 022703 017242 2$: CMP ASTTYIN+8. R35 ; ;BUFFER FULL? 
017012 101456 BLOS 4$ + ¢BR IF YES 
017014 104410 RDCHR :GO READ ONE CHARACTER FROM THE TTY 
017016 112613 MOVB (SP)+, (R3) *:GET CHARACTER 
017020 122713 000177 10$: CMPB #177, (R3) :3I IT A RUBOUT 
017024 001022 5$ :BR IF NO 
017026 005716 TST (SP) *:1S THIS THE FIRST RUBOUT? 
017030 001007 BNE 6$ ::BR IF NO 
017032 112737 000134 017230 MOVB #°\,9$ :: TYPE A BACK SLASH 
017040 104401 017230 TYPE ie 
017044 012716 177777 MOV #-1, (SP) ::SET THE RUBOUT KEY 
017050 005303 6$: DEC R3 : ;BACKUP BY ONE 
017052 020327 017232 CMP R3,ASTTYIN >;STACK EMPTY? 
017056 103434 BLO 4$ :;BR IF YES 
017060 111337 017230 MOVB (R3),9$% at iy TO TYPEOUT THE DELETED CHAR. 
917064 104401 017230 TYPE ,9$ :2G0 T YPE 
017070 000746 BR 2$ :GO READ ANOTHER CHAR. 
017072 005716 S$: TST (SP) - =RUBOUT KEY SET? 
017074 001406 BEQ 7$ ::BR IF NO 
017076 112737 000134 017230 MOVB #°\ 9$ >; TYPE A BACK SLASH 
017104 104401 017230 TYPE 9 
017710 005016 CLR (SP) :; CLEAR THE RUBOUT KEY 
017112 122713 000025 7$: CMPB #25, (R3) >:I1S CHARACTER A CTRL WU? 
017116 001005 BNE 8$ ::BR IF NO 
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TTY INPUT ROUTINE SEG 0069 
017120 104407 017247 TYPE SCNTLU >: TYPE A CONTROL ‘U"' 
017124 000726 as i$ >:GO START OVER 
017126 122713 000022 RS: CMPB wee. (R35) 21S CHARACTER A ‘“*R'*? 
017132 001011 BNE ; BRANCH ‘ie roe 
017134 105013 CLRB tR3) CLEAR T HARACTER 
017136 104401 001207 TYPE ,SCRLF :TYPE A ner Rela 
017142 104401 017232 TYPE “S$TTYIN i TVPE THE INPUT STRING 
017146 000717 BR es 0 PICKUP ANOTHER CHACTER 
017150 106401 001206 4$: TYPE , SQUES PE A 
017154 000712 BR 1$ oe CLEAR THe BUFFER AND LOOP 
017156 111337 017230 3$: MOVB (R3),9% 7z:ECHO THE CHARACTER 
017162 104401 017230 TYPE oS 
017166 122723 000015 CMPB #15,(R3)+ + CHECK FOR RETURN 
017172 001305 BNE 2$ LOOP IF NOT RETURN 
017174 105063 177777 CLRB -1(R3) =: CLEAR RETURN (THE 15) 
017200 106401 001210 TYPE oLF ceT YPE A LINE FEED 
017204 005726 TST (SP) + ;CLEAN RUBOUT KEY FROM THE STACK 
017206 012603 MOV (SP)+,R3 ; RESTORE R R3 
017210 011646 MOV (SP) ,-(SP) :;ADJUST THE STACK AND PUT ADDRESS OF THE 
077212 016666 000004 000002 MOV 4(SP),2(SP) :: FIRST ASCII CHARACTER ON IT 
017220 012766 017232 000004 MOV #STTYIN,4 (SP) 
017226 000002 RTI : :RETURN 
017230 9$: -BYTE 0 :: STORAGE FOR ASCII CHAR. TO TYPE 
017231 000 -BYTE O : ; TERMINAT 
017232 $TTYIN: .BLKB- 8. : :RESERVE 8 BYTES FOR TTY INPUT 
017262 136 103 015 $CNTLC: .ASCIZ /*C/<15><12> ;: CONT — 
017247 136 125 015 $CNTLU: .ASCIZ /*U/<15><12> : CONTROL ‘U'' 
017254 136 107 015 $CNTLG: .ASCIZ /*G/<15><12> - = CONTROL = 
017261 015 012 123 $SMSWR: .ASCIZ <15><12>/SWR = / 
017272 040 040 116 SMNEW: .ASCIZ / NEW = / 
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MACRO v04.00 
READ AN OCTAL NUMBER FROM THE TTY 


SEQ 0070 
-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


~— BR me a ee ene oe eae eee 


SERA ARTA EEE EKETAEAEAEAERKEEREEKAAARAEAEKERKERKEKREKRKR HRA RRS 


“STHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


> *CHANGE IT 


TO BINARY. 


:*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
HARACTER IS READ A 


= *OCTAL DIGITS. IF AN ILLEGAL 
= *F OLLOWED BY A 
;* THEN BE RETYPED. 


: *CALL: 


CARRIAGE RETURN-LINE FEED. 
THE INPUT IS 


RDOCT 
RETURN HERE 


‘WILL BE TYPED 
THE COMPLETE NUMBER MUST 
TERMINATED BY TYPING A CARRIAGE RETURN. 


+ ¢READ AN OCTAL NUMBER 
LOW ORDER BITS ARE ON TOP OF THE STACK 
* HIGH ORDER BITS ARE IN $HIOCT 


017304 011646 $RDOCT: MOV (SP) ,-(SP) ; PROVIDE SPACE FOR THE 
017306 016666 000004 900002 MOV 4(SP),2¢(SP) NPUT NUMBER 
017314 010046 MOV RO,-(SP) -:PUSH RO ON STACK 
017316 010146 MOV R1,-(SP) : PUSH R1 ON STACK 
0173520 010246 MOV R2,-(SP) 7zPUSH R2 ON STACK 
017322 104411 1$: RDLIN : READ AN ASCIZ LINE 
017324 012600 MOV (SP)+,RO ::GET ADDRESS OF 1ST CHARACTER 
017326 010057 017432 MOV RO,5$ : AND SAVE IT 
017332 005001 CLR R1 ==CLEAR DATA WORD 
017334 005002 CLR R2 
017336 112046 2$: MOVB (RO) +,-(SP) ::PICKUP THIS CHARACTER 
017340 001420 BEQ $ sz1IF ZERO GET OUT 
017342 122716 000060 CMPB #°O, (SP) ::MAKE SURE THIS CHARACTER 
017346 003026 BGT ::1S AN OCTAL DIGIT 
017350 122716 000067 CMPR #°7, (SP) 
017354 002423 BLT 4$ 
0173556 006301 ASL R1 peme 
017360 006102 ROL R2 
017362 006501 ASL R1 22% 
017364 006102 ROL R2 
017366 006301 ASL R1 32*8 
017370 006102 ROL feo 
017372 042716 177770 BIC #*C7, (SP) eg THE ASCII JUNK 
017376 062601 ADD (SP)+,R1 zADD IN THIS DIGIT 
017400 75 BR 2$ - : LOOP 
017402 005726 3$: TST (SP)+ -:CLEAN TERMINATOR FROM STACK 
017404 010166 000012 MOV R1,12(SP) ::SAVE THE RESULT 
017410 010237 017442 MOV R2,$HIOCT 
017414 012602 MOV (SP)+,R2 :zPOP STACK INTO R2 
017416 012601 MOV (SP)+,_R1 ::;POP STACK INTO RI 
017420 012600 MOV (SP)+,RO ::POP STACK INTO RO 
017422 RT] : :RETURN 
017424 5726 4$: TST (SP)+ >: CLEAN PARTIAL FROM STACK 
017426 105019 CLRB (RO? ::SET A TERMINATOR 
017430 104401 TYPE -: TYPE UP THRU THE BAD CHAR. 
017432 5$: .WORD 0O 
ote. 104401 001206 TYPE , SQUES oe ae ee 
17440 0007 ai) 1$ :2TRy AGAIN 
017442 S$HIOCT: .WORD 0 *HIGH ORDER BITS GO HERE 
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SAVE AND ESTORE RO-R5 ROUTINES 
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SEG 0077 
.SBTTL SAVE AND RESTORE RO=-R5S ROUTINES 
SF SSA RAE AAA ARERAAAAAAAAAAEAAEAAAAERHRAEKRASRAAKRKEREEKRH AREA AED 
:*SAVE RO-RS5S 


7 *CALL: 
* 


: SAVREG 
> *UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 
> *TOP=-- (+16) 


3* +2---(+18) 

3% +4---R5 

5% +6-—=R4 

5% +8---R35 

3 *+10---R2 

3 *+12---R1 

:*+14---R0 

$SAVREG: 
MOV RO,-(SP) ;;PUSH RO ON STACK 
MOV R1,-(SP) ;;PUSH R1 ON STACK 
MOV R2,~(SP) ;sPUSH Re ON STACK 
MOV R3,-(SP) ;;PUSH R3 ON STACK 
MOV R4,-(SP) 32PUSH R4 ON STACK 
MOV R5.-(SP) ;PUSH R5 ON STACK 
MOV 22(SP) ,~(SP) ::SAVE PS OF MAIN FLOW 
MOV 22(SP) ,-(SP) ;zSAVE PC OF MAIN FLOW 
MOV 22(SP) ,-(SP) 32SAVE PS OF CALL 
MOV 22(SP) ,- (SP) >zSAVE PC OF CALL 
RT] 

>*RESTORE RO-R5 

> *CALL: 

;* RESREG 

SRE SREG: 
MOV (SP)+,22(SP) 3RESTORE PC OF CALL 
MOV (SP)+,22(SP) :zRESTORE PS OF CALL 
MOV (SP) +,22(SP) >¢RESTORE PC OF MAIN FLOW 
MOV (SP) +,22 (SP) ;zRESTORE PS OF MAIN FLOW 
MOV (SP)+,R5 :;POP STACK INTO 85 
MOV (SP)+,R4 ;;POP STACK INTO R4 
MOV (SP) +,R3 ;zPOP STACK INTO R35 
MOV (SP)+,R2 ;zP0P STACK INTO R2 
MOV (SP)+,R1 3:POP STACK INTO RI © 
MOV (SP)+,RO :zPOP STACK INTO RO 
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TRAP DECODER SEQ 0072 
-SBTTiL TRAP DECODER 


2 SAEAAAEAAEAAEEKEARAAEAAEATAETAETERAEARERATAREAREARARAREKRARAHR ARERR KRAR AED 
>*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP*’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
7*GO TO THAT ROUTINE. | 


017540 010046 STRAP: MOV RO,-(SP) 7: SAVE RO 
017542 616600 000002 MOV 2(SP) 20 >;GET TRAP ADDRESS 
017546 005740 TST -(RO) > ;BACKUP BY 2 
017550 111000 MOVB (RO) RO 3:GET RIGHT BYTE OF TRAP 
917552 0063500 ASL RO >;POSITION FOR INDEXING 
917554 016000 017574 MOV $TRPAD(RO).RO ;:; INDEX TO TABLE 
017560 000200 RTS RO ::GO TO ROUTINE 
::THIS IS USE TO HANDLE THE ‘“‘GETPRI'' MACRO 
077562 011646 $TRAP2: MOV (SP) ,-(SP) ::MOVE THE PC DOWN 
017564 016666 000004 000002 MOV 4(SP) ,2(SP) ::MOVE THE PSW DOWN 
017572 000002 RT] : RESTORE THE PSW 
-SBTTL TRAP TABLE 
:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
>*BY THE ‘’TRAP’' INSTRUCTION. 
é ROUT INE 
017574 017562 $TRPAD: .WORD $TRAP2 
017576 015070 $TYPE 3; CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
017600 015406 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
017602 015362 $TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
017604 015422 $STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
017606 015610 S$TYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
017610 016434 $GTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 
017612 016344 $CKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOF T-SwWR 
017614 016706 $RDCHR ;;CALL=RDCHR TRAP +10(104410) TTY TYPEIN CHARACTER ROUTINE 
017616 016776 $RDLIN ;;CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
017620 017304 $RDOCT ;;CALL=RDOCT TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 
017622 017444 $SAVREG ;;CALL=SAVREG TRAP+13(104413) SAVE RO-RS ROUTINE 
017624 017502 SRESREG ;;CALL=RESREG TRAP+14(104414) RESTORE RO-RS ROUTINE 
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TELETYPE MESSAGES S¢Q 0073 


-SBTTL TELETYPE MESSAGES 


Ps 

5 017626 200 05 116 ENTERA: .ASCIZ <CRLF>/ENTER DRIVE ADDRESS: / 

4 017655 040 077 171 ADRERR: .ASCIZ / ?INVALID ADDRESS/<CRLF> 

§ 017700 200 120 117 PORTAIS: .ASCIZ <CRLF>/PORT ‘A* ADDRESS IS: / 

6 017727 200 120 117 PORTBIS: .ASCIZ <CRLF>/PORT *B* ADDRESS IS: / 

7 017756 200 123 131 NOCLOCK: .ASCIZ <CRLF>/SYSTEM MUST HAVE ‘L* OR ‘P* CLOCK/<CRLF><iF> 
& 020023 Cid 105 116 TESTNO: .ASCIZ <LF>/ENTER TEST @: / 

9 020043 040 077 111 > .ASCIZ / ?INVALID TEST NUMBER/<CRLF> 

10 020072 200 012 122 ADDRIS: .ASCIZ <CRLF><LF>@RH/RM ADDRESS (RMCS1) IS: @ 

11 020127 O12 105 116 NTRH: -ASCIZ <LF>@ENTER RH/RM ADDRESS: a 
$ 020156 200 122 105 SWTCHN: .ASCIZ <CRLF>@RETURN ‘PORT SELECT’ ine, TO ‘A/B‘a@ 
13 020224 200 125 127 SWTCHA: .ASCIZ <CRLF>/SWITCH ‘PORT SELECT* TO ° 
14 020261 200 123 127 SWITCHB: .ASCIZ <CRLF>/SWITCH ‘PORT SELECT’ TO ty 
15 020316 200 124 110 CONTUE: .ASCIZ <CRLF>/THEN PRESS ‘CONTINUE’ ON THE PROCESSOR/<CRLF > 
16 020367 200 123 124 CYCLED: .ASCIZ <CRLF>/STOP THE DRIVE/ 
17 020407 200 123 124 CYCLEU: .ASCIZ <CRLF>/START THE DRIVE, THE PROGRAM WILL WAIT FOR "MOL" TO SET/<CRiF> 
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T ERROR MESSAGE 
} _SBITL TEST ERROR MESSAGES 
3 020501 104 122 111. M1: -ASCIZ /DRIVE IS NONMEXISTENT (*NED’ BIT SET)/ 
4 020547 127 122 117 EM2: “ASCIZ /WRONG DRIVE TYPE/ 
5 020570 120 117 122 EM3: “ASCIZ @PORT SELECT SWITCH ON DRIVE. NOT IN 'A/B'a 
6 020642 104 122 111. M4: -ASCIZ /DRIVE NOT ON LINE/ 
| ? 02 123 105 122 EMS: “ASCIZ /SERIAL NUMBER READ THROUGH EACH PORT NOT THE SAME/ 
| B® 020746 124 111 115 EM6: -ASCIZ /TIMEQUT HAS NOT OCCURRED WITHIN 2 SECONDS/ 
| 9 021020 124 111 115. EM7: “ASCIZ /TIMEOUT ONE-SHOT IS LESS THAN 500 MS/ 
10 021065 122 105 101 £M10: _ASCIZ /READ IN PRESET DOES NOT SET VOLUME VALID FOR THE PORT/ 
| 11 021153 047 107 117 —M11:  .ASCIZ /'GO' BIT RESET DURING UNLOAD COMMAND/ 
| 12 021220 111 116 103. £—M12:  .ASCIZ /INCORRECT STATUS DURING UNLOAD COMMAND/ 
| 13 021267 104 122 111 £M13:  .ASCIZ /DRIVE DID NOT RETURN TO NEUTRAL AFTER UNLOAD COMMAND/ 
| 14 021354 101 124 124 £€M14: .ASCIZ /ATTENTION BIT SET ON ‘OPPOSITE PORT’ AFTER UNLOAD/ 
15 021436 101 124 124 £M15: .ASCIZ /ATTENTION BIT NOT SET ON PORT WHICH ISSUED 'UNLOAD'/ 
16 021522 104 122 111 —M16:  . ASCII /DRIVE NOT IN NEUTRAL AFTER UNLOAD WITH 'PCRT/<CR><LF> 
17 021600 123 105 114 “ASCIZ @SELECT' SWITCH MOVED FROM 'A/B' a 
18 021641 104 122 111 £—M17:  .ASCIZ /DRIVE LOCKED ON PORT 'A' BY SWITCH WHILE CYCLED UP/ 
19 021724 104 122 111 EM20:  .ASCIZ /DRIVE LOCKED ON PORT 'B' BY SWITCH WHILE CYCLED UP/ 
20 022007 123 124 101 E—M21:  .ASCIZ /STATUS INCORRECT FOR PORT AFTER CYCLE UP/ 
21 022060 122 105 107 EM22:  .ASCIZ /REGISTER CONTENTS SEEN WHEN DRIVE SWITCHED ON ‘OPPOSITE’ PORT/ 
22 022156 047 116 105 EM23:  .ASCIZ /*NED' NOT SET WHEN RMDS ACCESSED THROUGH PORT NOT SWITCHED/ 
23 022251 104 122 111. EM24:  .ASCIZ /DRIVE SWITCHED TO LOCKED OUT PORT WHEN RELEASED/ 
24 022331 122 110 057 £EM25:  .ASCIZ @RH/RM DIDN'T RESPOND TO ADDRESS ING@ 
25 022374 104 122 111 EM30:  .ASCIZ /DRIVE NOT SEIZED BY PORT/ 
26 022425 127 122 117 EM31:  .ASCIZ /WRONG STATUS SEEN BY THE SEIZING PORT/ 
27 022473 122 105 107 EM32:  .ASCIZ /REGISTER CONTENTS WRONG/ 
28 022523 103 117 116 EM33: .ASCIZ /CONTROL BUS PARITY ERROR READING INDICATED REGISTER/ 
29 022607 103 101 116 EM34:  .ASCIZ /CAN'T ACCESS DRIVE THROUGH EITHER PORT 
30 022656 104 122 111 EM35:  .ASCIZ /DRIVE NOT IN NEUTRAL AFTER RELEASE - REQUEST NOT SET/ 
31 022743 104 122 111 +EM36: -ASCIZ /DRIVE NOT IN NEUTRAL AFTER TIMEOUT - REQUEST NOT SET/ 
32 023030 122 105 107 EM37:  .ASCIZ /REGISTER CONTENTS WRONG AFTER RELEASE OR TIMEOUT/ 
33 023111 104 122 111 EMGO: .ASCIZ /DRIVE IN NEUTRAL AFTER RELEASE - REQUEST SET/ 
34 023166 122 105 107 EM41:  .ASCIZ /REGISTER WRONG AFTER RELEASE WITH REQUEST SET/ 
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RMO5S/3/2 
ST ERROR MESSA 
1 023244 124 
2 023315 124 
3 023371 124 
4 023440 124 
5 023467 126 
6 023534 040 
7 023562 124 
8 023611 040 
9 023647 124 
10 023730 124 
11 023747 040 
12 024013 124 
13 024052 044 
14 024061 040 
15 024117 124 
16 024203 040 
17 024262 124 
18 024277 040 
19 024335 124 
20 924374 040 
21 024432 124 
22 024516 040 
235 024555 124 
24 
25 
26 
27 024614 001242 
28 024630 001242 
29 024646 001242 
30 024662 001242 
31 024672 001242 
32 024704 001242 
33 024714 001242 
34 024732 001242 
35 024740 001242 
36 024752 001272 
37 024756 001242 
38 024776 001242 
39 025010 001242 
re 025022 001242 
42 025034 000 
43 025041 000 
44 BE 2087 000 
45 025054 000 
6 025057 000 
4 Bg 2nes 000 
48 8 5071 000 
49 025073 000 
50 86 207% 000 
2} 5103 000 


Ooooo 


oie) e) @) eo) ee) eo) ee) eo) ele) ee) e)e) 

Oooo Sooo 

—_ 23 —23 — 2 ee ee ed eed eed eed od 3 =) 
oS —wd od wd lt ed ed el el eel eee eed od 
© — — — = et eed ed ed od 2) od 3 
Oo AAKKKOSCAMAAAOC COM 


S 
Ss 


S33 


000 
000 


000000 
001236 
001236 
001170 


one POR TS! 2 MACRO V04.00 +-APR-81 


> > 
wn 
On 

bona 


ee 
> 
Ww 
OOOO 


© 
Ww 
ee ee ee ee ee ee ee 


e 
PEPPrrYrrrrrrrr>r> 
NMNNNNNNnNNNnnnnw 
AAAAAAOIAAAANIAAO 
a Leelee Lehn Lame li Leee i Lie Lees Le Lee Lede Le Le Li Le) 


K 6 
18:08:36 PAGE 25 


PORT # REG ADR CONTENTS/ 
PORT # REG ADR GOOD BAD/ 
ERR PC REG ADR PORT A_ PORT B/ 

PORT #/ 

PORT # TIME (IN MS)/ 
SEIZE/<CRLF> 
PORT #/ 


SEIZE ERROR/<CRLF> 
ERR PC PORT # PORT # REG ADR CONTENTS/ 


SWITCHED TO/<CRLF> 
PORT #/ 


~ 
— 
rm 
W 
4 
22: 2s BRBRBERBR 
rv 
2) 
x» 
v 
a | 


ERROR/<CRLF> 

PORT # REG ADR GOOD 
PORT B/<CRLF> 

RMDS/ 


ERROR/<CRLF > 
RT #/ 


PO 

ERROR/<CRLF > 

PORT # PORT # REG ADR GOOD 
RQSTNG/<CRLF > 

PORT # PORT #/ 


BAD/ 


/ BAD/ 
/TEST # ERR PC 


TSTNUM, SERRPC ,PTNBR,SBDADR ,$BDDAT ,0 
TSTNUM, SERRPC ,PTNBR ,SBDADR,$SGDDAT , $BDDAT ,0 
TSTNUM, SERRPC , SBDADR ,, $GDDAT ,. $BDDAT ,0 
TSTNUM,,SERRPC ,PTNBR,0 
TSTNUM, SERRPC ,PTNBR, TIME ,0 

TSTNUM, SERRPC,,SEIZPT,0 

TSTNUM, SERRPC ,SEIZPT,PTNBR,$BDADR,$BDDAT ,0 
TSTNUM, SERRPC ,0 

nee »SEIZPT ,PTNBR,0 


SRMADR , 

TSTNUM, SERRPC,SEIZPT ,PTNBR,SBDADR,$GDDAT , $BDDAT ,0 
TSTNUM, SERRPC ,STMP2,$TMP3S,0 

TSTNUM, SERRPC ,SEIZPT ,.PTNBR,O 

TSTNUM, SERRPC,SEIZPT,OPPRT ,0 


0,0,1 
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CONSTANTS, TABLES, ETC SEQ 0076 
1 .SBTTL CONSTANTS. TABLES. ETC 
¢ -TARLE OF TEST STARTING ADDRESSES 
4 025110 003122 TSTADR: .WORD IST1 :STARTING ADDRESS OF TEST 1 
7 025112 0046474 -WORD ITST2 =STARTING ADDRESS OF TEST 2 
025114 005256 .WORD TST3 STARTING ADDRESS OF TEST 3 
025116 0 .WORD TST4 :STARTING ADDRESS OF TEST 4 
025120 756 t TSTS : STARTING ADDRESS OF TEST 5 
025122 007674 .WORD TST6 :STARTING ADDRESS OF TEST 6 
025124 010742 -WORD TST7 :STARTING ADDRESS OF TEST 7 
, 025126 012052 .WORD 1TST10 :STARTING ADDRESS OF TEST 10 
e zATTENTION BIT TABLE 
11 025130 0471 ATABIT: .BYTE 1 sATTENTION BIT FOR DRIVE 0 
12 025131 002 -BYTE 2 sATTENTION BIT FOR DRIVE 1 
13 025132 004 -BYTE 4 :ATTENTION BIT FOR DRIVE 2 
14 025133 010 -BYTE 10 :ATTENTION BIT FOR DRIVE 3 
15 025134 020 -BYTE 20 :ATTENTION BIT FOR DRIVE 4 
16 025135 -BYTE 40 :ATTENTION BIT FOR DRIVE 5 
17 025136 100 BYTE 100 :ATTENTION BIT FOR DRIVE 6 
18 025137 200 -BYTE 200 ATTENTION BIT FOR DRIVE 7 
6 025140 000011 MAXTN: .WORD 11 :MAXIMUM TEST NUMBER 
24 000200 . END 200 
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SYMBOL TABLE SEQ 0077 
 ADDRIS 020072 CPSAVE 014524 DT14 024714 F2 = 000010 PORTAI 017727 
ADRERR 017655 Ck = 000015 DT17, «024732 F3 = 000020 PORTC 001230 
ADE = 001000 CRLF = 000200 DT2 —s- 024630 FZ = 000040 PRO = 000000 
/ASRI == 001232 CYCLED 020367 DT24 024740 GO = 000061 PR1 = 000040 
| ATA = 100000 CYCLEU 020407 DT25 024752 v= 000010 PR2 = 000100 
| ATABIT 025130 DCk = DT30 ©: 024756 GTSWR = 104406 PR3 = 000140 
ATO = 000001 DDISP = 177570 DT34 024776 HCE = 000200 PR4 = 000200 
All = 000002 DEi = 000040 DT35 025010 HCI = 002000 PRS = 000240 
AT2 = 000004 DFF20 = 000002 DT40 ©: 025022 HCRC = 000400 PR6 = 000300 
ATS = 000010 DF 1 025034 DTS 024546 HT = 000011 PR7 = 000340 
ATG = 000020 DF14 025063 DT6 024662 IAE = 902000 P = 177776 
ATS = 000040 DF17,—s- 0250711 DT? ss 024672 IBSAVE 014526 PSEL = 002000 
AT6 = 000100 DF 2 25041 DVA = = 000100 PSW = 177776 
AT? = 000200 DF25 025073 DVC = 000200 ILF = 000001 PTNBR 001234 
A16 = 000400 DF30 ©: 025074 ECH = 000100 R = 000002 PWRVEC= 00002 
Al? = 001000 DF34 025103 ECI = 004000 IOTVEC= 000020 RDCHR = 104410 
BADNO 020043 DF5 = 025047 EMTVEC= 000030 = 000100 RDLIN = 104411 
BADTMO 001706 DF6 «=: 025054 M 020501 vc = 010000 RDOCT = 104412 
BAI = 000010 DF7 =: 025057 EM10 021065 KYBCTL 001266 Dy = 000200 
BITO = 000001 DH1 023244 EM11 021153 LBC = 002000 RELERR 001250 
BITOO = 000001 DH13. 023534 EM12 021220 LBT = 002000 ELOK = 000001 
BITO1 = 000002 DH14 3611 EM13. 021267 LF = 000012 RESREG= 104414 
BITO2 = 000004 DH17 «023730 EM14 021354 [sc = 004000 RESVEC= 000010 
B1T03 = 000010 DH2 =—s-—« 023315 EM15 021436 MAXTN 025140 = 000016 
BIT04 = 000020 DH24 023747 EM16 = 021522 MCPE = 020000 : 
BITOS = 000040 DH25 024052 EM17 021641 MDPE = 000400 RMCS1 = 
BIT06 = 000100 DH30 024061 EM2 020547 MOH = 020000 RMCS2 = 000010 
BITO7 = 000200 DH34 = 024203 EM20 021724 MOL = 010000 RMDA = 
BITOB = 000400 DH35 024277 EM21 022007 MXF = 001000 RMDB = 000022 
BITO9 = 001000 DH37 «(024374 EM22 022060 NBA = 100000 RMDC = 000034 
BIT1 = 000002 DH40 024516 EM23. 022156 NED = 010000 RMDS = 000012 
BIT10 = 002000 DHS =—ss« 0233771 EM24 022251 NEM = 004000 RMDT = 000026 
BIT11 = 004000 DH6 023440 EM25 —- 022331 NOATA = 000000 RMEC1 = 000044 
BITI2 = 010000 DH? s«023467 EM3.  —- 020570 NOCLOC 017756 RMEC2 = 000046 
BIT13 = 020000 EM30 022374 NOSEIZ 001246 RMER1 = 000014 
BIT14 = 040000 DISPLA 001142 EM31 022425 NTRH 020127 RMER2 = 000042 
BIT15 = 100000 DISPRE 000174 EM32 (022473 OFD = 000200 RMLA = 000020 
BITe = 000004 DLT = EM33. 0022523 OPE = 020000 RMMR1 = 000024 
BIT$ = 000010 DL64 = 000020 EM34 022607 OPI = 020000 RMMR2 = 000040 
BIT4 = 000020 DMD = 0 EM35 022656 OPPRT 001240 RMOF = 000032 
BITS = 000040 DPE = EM36 022743 OR = 000200 RMR = 000004 
BIT6 = 000100 DPR = 000400 EM37 023030 PAR = 000010 RMSN = 000030 
BIT? = 000200 DRO = 004 EM, 020642 PAT = 000020 RMWC = 000002 
BITS = 000400 DRY = 0002 EM40 023111 PFECH 014726 R6 -=%000006 
BIT9 = 001000 DSWR = 177570 EMG 1 166 PFECH1 014736 =%000007 
BPTVEC= 000014 DIE = EMS  —- 020664 PFECH2 015020 SAVREG= 104413 
CHANGE 002774 DTOO = 000001 E 020746 PFECH3 015052 = 1 
CHGADR 001270 DTO1 = 000002 EM7 —s-: 021020 PFECH4 015062 SCOPE = 
CKCLK 013406 DTO2 = 000004 ENTERA 017626 PFTSTIN 015066 0 = 000100 
013456 DTO3 = 090010 ERR = 04 PGE = 002000 SC1 = 000200 
CK 013520 DTO4 = 000020 ERROR = 104000 PGM = 001000 SC2 = 000400 
013530 DTOS = 000040 ERRVEC= 000004 PIP = 020000 SC3. = 001000 
1244 DT06 = 000100 EXEC 002622 PIRQ = 177772 4 = 002000 
104407 DTO7 = 000200 FER = 000020 PIRQVE= 000240 SEIZPT 001236 
013540 DTO8 = 000400 FMT16 = 010000 PORTA 001224 KI = 
LR. = 0 DT 024614 F = 000002 PORTAI 017700 STACK = 001100 
CONTUE 020316 DT13. = 024704 Fi —- =: 000004 PORTB 001226 START 001766 
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SYMBOL T 
START? 001776 TEST3 005314 
START2 002002 TESTS 6 
STKLMT= 177776 TESTS 007014 
S 014154 TEST6 3 §«©007732 
00114 TEST7 11000 
17 TIME 001252 
SWICHA 020224 TIMEA 001256 
SWICHB 020261 TIMEAP 001260 
SWICHN 020156 TIMEB 001262 
SWwO = 000001 TIMEBP 001264 
SWOO = 000001 TKVEC 
SwO1 = 000002 TOLER 613572 
SWO2 = 000004 TPVEC = 
SWOS = 000010 E= 000034 
SWO4 = 000020 TRE = 040000 
SwWOS = 000040 TRIVEC= 14 
SWO6 = 000100 TSTADR 025110 
SwWO7 = 000200 TSTNUM 001242 
SWO8 = 000400 1ST1 003122 
= 001000 TSTIAA 003104 
SW = 000002 TST10 3 =©012052 
SwW10 = 002000 TST11 =013156 
SWil = 0046000 TST2 004474 
SWi2 = 010000 TS73 005256 
SW15 = 020000 TST4 006040 
SW14 = 040000 TST5 75 
Sw15 «= 100000 TST6 007674 
SW? = 000004 TST7 010742 
SW5 == 000010 TYPDS = 104405 
SW4 = = 000020 TYPE = 104401 
SW5 = = - 000040 TYPOC = 104402 
SW6 = =~ 000100 TYPON = 104404 
Sw/ = 000200 TYPOS = 106405 
SW8 = = 000400 UNS = 040000 
Sw9 == 001000 UPE = 02 
TAP == 040000 U0 = 000001 
TRITVE= 000014 U1 = 000002 
TESTNO 020023 U3 = 000004 
TEST? 003160 VV = 000100 
TESTIO 012110 VVSET = 000001 
TEST2 004532 WATCH 001254 


. ABS. 
000000 001 
ERRORS DETECTED: QO 
VIRTUAL MEMORY USED: 54784 WORDS ( 214 PAGES) 
PAGES 


DYNAMIC MEMORY AVAILABLE FOR 70 
C7 RMSR BIN, C2RMSA/C=CZRMSB.DOC, CZRMSB,SYSMAC/M 
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CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0086 

CKERR  7=0# 10-33 16-33 10-33 10-33* 10-33* 10-33" 10-402 10-40e 10-40" 16-40" 10-48" 10-48 10-488 
| 10-48" 10-48" 10-48* 10-48* 10-48" 10-98 10-98 10-99% 10-99% 10-322" 10-322" 10-322 10-322 10-322 

10=322* 10-322 10-322* 10-323" 10-323« 10-223* 10-323 10-323" 10-323" 10-323" 10-323 | 

CkKSWR 131 14-1 4=1 22-18 

CLOCK 1229 12-18  12=29H 

CLR 4-547 10-22 10-33 10-33 
| CONTUE 10-182 10-187 23-15# 
| CRSAVE 13-1 13-1 13-1 Sate. 9Sede 4401 14-1 14-1 14=1 14-1 14-18 39 14-182 1a=1"15=1 
Ch 4-519" 16-1 16-1 24-16 

CRLF 4-519# 9-6 9-29 9-29 16-1 16-1 23-3 23-4 23-5 23-6 23-7 23-7 23-9 23-10 
| 23-12 23-13 Ae Jans — 2505. 25-16. F3-17 3-17 HSS 25-8 35-11 25-14 516s 51D 
'CYCLED 10-322 10-322 10-323 10-323 23-164 
'CYCLEU 10-322 10-322 10-323 10-323 23-174 

DOCK 44-6104 

DDISP 4-519% 6-0 9-24 

DE1 4-5814 

OF? 8-7 8-21 8-56 8-63 8-70 8-91 8-120 8-127 8-136 8-185 v5-42e 

DF 14 8-84 25-474 

DFI7 8-106 8-113 25-484 

OF? 8-14 8-28 8-171 8-178 «= 25-434 

OF 25 8-148 25-494 

DF 20 8-164 8-213 8-227 25-504 

DF 34 8-192 25-514 

DES 8-35 25-444 

DF6 B=-42 8-77 8-99 25-454 

DF? ~49 B=141 8-199 “8206 8-220 25-460 

DFF20 4=577# 

DHT =5 8-19 8-54 8-61 8-68 8-89 O-118 8-135 ~ --B-132 0s 8-183 25-189 

DH13 =75 B97 © 25268 : | 

DH14 8-82 25-84 

DH17 8-104 8-111 25-104 | 

DH2 8-12 8-26 B=169 9 8176. 25+20 

DH24 8-139 25-114 

DHOS 8-146 25-138 

DH30 8-162 B=225. 25-144 

DH34 8-190 25-164 

DH35 8-197 8-204 25-184 

DH37 8-211 25-204 

DH40 “218 25-224 

DH5 8-33 25-34 

DH6 8-40 25-44 

DH? 8-47 25-54 

01GB 4-5 78H 

DISPLA  6=0# bake .  -Gadbe -.tiete>  tdats 

DISPRE 5-14 9-24 

DL64 4-580# 

DLT 4=-5578 

DMD 4-6 148 

DPE 4=-6564 

DPR ie-5B4e 10-48 10-48 10-98 10-98 10-99 10-99 10-157 10-157 10-158 10-158 10-185 10-190 10-322 
DRO 46418 

DRY on5B 3" 10-48 10-48 10-98 10-98 10-99 10-99 10-157 10-157 10-158 10-158 10-185 10-190 10-322 
DSwR 4-5) 6-0 9-24 


ee Ee ee ee eee - ee 


SEQ 0087 
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CZ7RMSBO RMO5/3/2 DU POR TST 2 
CROSS REFERENCE TABLE (CREF vO1-05 ) 


LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL LL LLL LL LL LL CL LE tte 
° 
— 
Nm 
Ww 


8-20 
8-98 
25-3354 


8-55 
25-324 


25-344 
8-170 
8-226 

25-398 
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MACRO vV04.00 4-APR-81 18:08:56 PAGE S-6 


8-62 8-69 8-90 8-119 8-126 


8-177 25-284 


25-378 


LC A A Ae A LO ET Nt mm ae 


8-133 


8-184 


25-274 


SEQ 0088 


























> 

















ee ee 





SEQ 0089 


—- 


—_~ 


CZRMSBO RMO5/3/2 DU POR TST 2 
CROSS REFERENCE TABLE 


rv" 
= 
—" 
< 
rm 
a | 


24-94 
9-24* 
23-34 


9-24 
13-1* 
9-6 7H 


10-98 
5-1 
22-1 
20-1 
22-14 
16-1 
14-1 
9-24 


9-75* 
10-191 


16-1 
26-224 


10-48 
10-322 


10-33 
1U--93 
10-185 
23-78 
23-114 


9-24 


9-24 
13-18 
10-20 


16-1 
14-1 
9-24 


9-92 
10-322 


16-1 


10-48 
10-322 
10-33 


10-98 
10-185 


MACRO v04.00 
(CREF vO1-05 > 


9-24 
14-1 
10-98 


10-322 
9-29 


22-1 


14-1 


10-20 
10-322 


23-7 


10-98 
10-322 
10-335 


10-99 
10-190 
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9-26* 


10-322 
11- 
22-1 


— 


14-1 


10-20* 


10-322* 


23-8 


10-98 
10-525 
10-335 


10-99 
10-190 


9-27* 
14-1 
10-157 


14-14 


10-98 
10-323 


23-10 


10-99 
10-323 
10-322 


10-157 
10-190 


12-5* 
10-158 


14-18 


10-98* 


10-3235* 


235-11 


10-99 
10-323 
10-322 


10-157 
10-190 


12-6* 
10-178 


22-1 
ce~' 


14-18 


10-522 
10-157 


12-15* 
10-322 


14-18 


10-99 


10-323 
10-157 


12-24 
10-323 


22-1 
22-1 


10-157 


10-158 


10-323 
10-158 


13-1 
11-1 


ee=' 
22-1 


10-157* 


10-158 


10-3525 
10-158 


13-1 


22-1 
22-1 


10-158 


10-185 


10-158 


SEQ 0090 
135=18 13-18 
ee7' 22-1 
22-1 22-1 
10-158* 10-178 
10-190 10-322 
10-158 10-185 


ones 










em mm gl A. — A ELLE AL LG LO LT II I LC AI, mm 





eT 
b> = 9st 


aes 
se Ne 


ithe 


& 


wc act 
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(CREF vO1-05 ) 


SEQ 0092 


CZ7RMSBO RMOS/3/2 DU POR TST 2 


CROSS REFERENCE TABLE 
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-_- ere e lh el eel eee fT" o 
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mom 200 «RAM do 
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° yp 2 ee Ee 2 we wwe wt 
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-_ CE EO ES th, sell eed eed - 
eum een) * LAM Nav 
co e- COMOOCY A pal ™ COUGOCY Ww OD 
d d44446 44446 4444 do 
- CEE FE EK Se eK at med eel eed ~- 
a ald 2s) Parry N00 
ao NK COW OOM oe" ™N COW oO CY mu 
vw T7718 wr : cee 9 ie Boe we 
4 444 adddd add dd 
_ Cree ee E - — ed weal eel seed =e 
-«* 
ae ele w Le ale! * «ory em 
ie) M) GOWN GO CY a tained Cee oe. aw 
T Yegae Teaaa Y00" wn 
4 dd4446 adddd badd dd 
_ = = el el aol aed re ee CU - 
x“ * ay 
© 00 OmincN cuOWon © SANK & & BO 
y | erm we Ff eine OF ES 
* © SOLS S999 & eesen f 8 6f SS 
wo 4 wom *« RM « ~ « * cou ¥ ~~ « 
- $92  eeeee seeen & « 2 Shem e = 28 
& . oA. dead dadse 2 A & beeen fb oe 
ee FEF & Fee _ ere ee TU _— 
Nn Ww * RON f* RDM «& 3 » * GON x 
a cosene Te PAY. pelibelt 9 ty Sect select Br, — in MOK GY mew Ko 
4 renee ra phaser riaaaes » oy Ge ties oo hee Be 
eh ee ee eee ee ee ooo aed SSK KC Kee _- -— aoe TU faVia® -—-— 
33 SERESS . RN om Shon sees rosOORS BN FFF = BF 
RS SAAAAAAS SSS SSR SShS54R4h45arn SE sss sss EE gt SSSbAS SES Sd SL SAS 
, coe cell ceed peel meal ool = ted ool gee oe Set sell ool ood one CY mtu is Vi 
wr) 
. 332335 off 22 ~&# Be Ss © sey Exye 
baterewwurys o82 : RR opwe ron ae 225, S8es 
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a Eee 


MAS 4-698 
SEQ 0093 


a ee ee ee mm o_o 


——— — -~- 


CZRMSBO RMO5/3/2 DU POR IST 2 
CROSS REFERENCE 


RMBA 4-687 
RMCS1 4-6854 
10-180* 
10-323 
RMCS2 ~68 
0-52* 
10-157* 
10-158 
10-322" 
RMDA 
RMDB 4-6944 
RMD C 4-6994 
RMDS 4-6904 
10-98 
10-157 
190 
10-322* 
RMD T 4-6 
RME C1 4-7024 
RME C2 4~70 
RMER 1 4-6914 
RMER2 4-7014 
RMLA 4-6934 
RMMR 1 4-6954 
RMMR2 4-7004 
RMOF 4-69 
RMR 4-5978 
a ya os 
SAVREG 22-14 
SC 4=-5324 
SCO 4-6484 
$c 4-6494 
Sc 4-6504 
Sc 4-6514 
SC4 46-6524 
SCOPE 4-5194 
SEIZPT 7-O# 
SK! 4-6624 
STACK 4-5194 
START S=-1 
START 5-3 
START2 9-15 
STKLMT 4=-5194 
STOP - 
Sw0 4-5198 
SwO00 4-519 
Sw01 4-519 
SwO 4-519 
SwO 4-519 
Sw04 4-519 
Swo5 4-519 
Sw06 4-519 
Sw07 4-519 
SwO8 4-519 
4-519 


10-98* 


10-53 
9-114 


10-62 
10=157* 


10-98* 
10-185* 


10-99* 
10-55 


10-98 
10-158* 


9-71 
19=1 


10-322 


10-98* 


10-180* 
10-322* 


10-48 


10-322* 


10-99 
10-322* 


10-20 
19=1 


10-325 


10-40 


10-322* 


10-157 
10-323* 


10-98 


10-185* 


10-325* 


10-158 
€o*32 


10-99 


10-323 


10-323* 


10-194 
235~53 


10-157 


D 8 
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TABLE (CREF VO1-05 ) 


10-157* 10-157* 
10-322* 10-322* 
10-33*  10-335* 

10-98"  10-99s 

10-157* 10-158* 
10-185* 10-190* 
10-323 10-323* 
10-48 10-48 

10-157 10-157 
10-158 10-158* 
10-322 10-322 
10-3235 10-325 
10-322 10-323 
25-35 ad Tf 

10-158 10-178 


10-325 


10-327 
25-39 


10-322 


25-40 
10-525 


SEQ 009% 
10-180* 10-180 
10-323" 10-323 
10-48" 10-48 
10-99 10-99» 
10-158* 10-158: 
10-322 10-322 
10-323" 10-323 
10-98 10-98 
10-157 10-157 
10-185 10-185 
10-322 10-322 
10-323 


ee ee 


‘ 
_* 


4-98 


re ee —_—- 


SEQ 0095 


aw? 


F 
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n> Oe Ne ee MY NMAD ee KM ee mmr Ke KM OU wm Nw 
3 tteou#eetes es &. 2 &. 2. 2 -s #titsits4 ‘ it ) j 
QAMAMM OS OOCooeoeo0o0dd ooooocnrr ® oOo mw Ww 
- ce NUN ee ee oe ee ee ceed eel ee eel el eel el eed el mr we 
= 
™ etl ala: wy moocw K« « * « ao « zm 
Oa wr *® wOuCuCU SE SE NOS # Kh wT om = + 
my Me OMIA MUM AOA MOK MINN OF wr) ~7 - 
ad Beery We ESR VT UA are ee SPE i it ‘ ‘ 
AMAOGOO OOOO OCOOOMOM*AAAAOS oO ovr = 
y= Ce See ee i Ne —-— - Ve = 


CROSS REFERENCE TABLE (CREF vO1-05 3 


(Z7R2MSBO RMO5/3/2 DU POR TST 2 





— ee ee me eee meme = 


wn GF 


9-69 9-80 


DEE A OE EE OT RET 


9-87 


9-102 9-105 


~ 


9-706 
Q 


0097 
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CROSS REFERENCE TABLE (CREF VO1-05 ) 


H 


SEQ 0098 


~ZRMSBO RMO5/35/2 Du POR TST 2 


—) ~ SOO 
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Or ™N Oooo°co 
cer ee en CU FF EE 
& 
™) co —®wWco 
Or 09 UW 00 1) COL) 
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ers ee ee ee, ee EE aE ee Ee Se ee 8 ee ee Bee ee ee me mm 


MACRO v04.00 4-APR-81 18:08:36 PAGE M-1 


CROSS REFERENCE TABLE (CREF VO1-05 ) 


I 


SEQ 0049 


(Z7RMSBO RMOS/3/2 DU POR TST 2 
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CROSS REFERENCE TABLE (CREF vO1-05 ) SEQ 0100 


SETPRI 4-519 10-18 13=5 13-9 19-1 
SETTRA 22-1 22-1 ee~' 22-1 22-1 22-1 22-1 22-3 22-1 22-1 22-1 22-1 22-14 


STARS  4-519H 5-5 6-0 6-0 10-20. 10-20 10-98 10-98 10-99 10-99 10-157 10-157 10-158 10-158 
10-178 10-178 10-322 10-322 10-323 10-323 10-325 10-327 11-1 13-1 14-1 15-1 16-1 17=1 
18-1 19-1 19-1 19-1 19-1 19-1 20-1 21-1 22-1 


SWRSU 4-519 924 9-244 
TIMER 4-4974 10-157 10-158 


TRMTRP 22-14 

TYPBIN 45-5194 

TYPDEC } 4=-519H 11-1 11-1 15-1 
Y 4-5194 9-29 

Y 4-5194 

TYPOCS 4=-519% 9-47 9-49 

TYPOCT 464-5198 15=1 15=1 19=1 
TYPTXT 6=519% 9-6 11=1 11=1 


USEREO 10-3284 11-1 


er. ee ee ee er wr —_- 


roo 


> ee a ee -——— 8 8 eS. ee @ 


